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APPENDIX A - COMPILER CONVENTIONS AND DATA LAYOUT 



NAMING AND USAGE 

The CALL/360-OS PL/I compiler is coded in OS/360 Level-F Assembler 
Language. To help clarify the relocation properties of the coding 
with respect to the special requirements of the CALL/3 6 0-OS operating 
environment, and to help make the organization of the compiler more 
apparent for maintenance purposes , certain symbolic naming conventions 
and usages have been observed throughout the coding as described below. 

REGISTERS 

The CALL/3 6 0-OS environment requires programs operating within it to 
be organized such that one group of registers can be relocated by the 
base address of the compiler and another group by the base address 
of the user's area, while a third group remains non- relocatable. 

The nomenclature Gn has been used to indicate the non-relocatable 
(general) registers; Pn, the registers addressing the user's (program) 
area; and Cn, the registers addressing the compiler. General register 
zero is exempt from relocation by the system, and so remains a G- 
register, even though its physical assignment places it in the P- 
register group. The registers thus available to the compiler are: 

GO, G2, G3, G4, G5, G6, and G7 (machine registers and 2-7) 

CI, C2, and C3 (registers 8 - 10) 

P0, PI, P2, P3, P4, and P5 (registers 11 - 1, excluding 0) 

In addition to distinguishing the registers by relocation property, 
certain compiler-wide register assignments are maintained. 

CI is used for subroutine linkages, both as entry point and return 
register. 

C3 is used by most subroutines as the principal code cover register. 
A few large routines use C2 as a second cover register. 

P2 permanently addresses the first 4096 bytes of the compiler* s static 
working storage. This is the area containing all register save-areas, 
compiler-wide flags, switches, counters, etc., and adcons for all 
subroutines. P0 addresses the second 4 096 bytes of this area. 

PI permanently addresses the base within the user's area at which 
object code will be generated. Since the contents of the compiler's 
working tables must be non-relocatable, wherever a true address would 
normally be used as a pointer, a non-relocatable displacement relative 
to the base contained in register PI is used instead. 

Registers P0, PI, and P2 are never used for any other purpose by any 
subroutine. Across subroutine calls, the called routine is responsible 
for savinG all G- and C- registers except GO, and all P-registers except 
P5. The floating-point registers are assigned mnemonics of Fl, F2, 
F3, and F4; they are non- relocatable and, in view of the rarity of 
their use, are considered volatile across subroutine calls. 



SUBROUTINES 

Subroutine entry points are named $xxxxx r where xxxxx is a ronemonically 
suggestive symbol. The adcon which addresses the entry point is named 
a xxxxx. Each subroutine has been assigned a two-letter prefix for 
use in creating local labels. Thus, the END Generator r for example, 
uses a prefix of ED, the Instruction Assembler, VN, and so on. Labels 
on instructions within the subroutine are constructed according to 
the format ppnnn, where pp is the routine's two-letter prefix, and 
nnn is a sequence number assigned as closely as possible in ascending 
order throughout the routine. 

Local working storage (used only by the routine in question) is 
identified with symbols of the form ppxxxx, where pp again is the 
routine's two- letter prefix, and xxxx is a mnemonic. 

Note ; The CALL/360-OS PL/I compile-time subroutine entry point names 
follow the naming conventions stated above and applied in this 
manual. However, there are some exceptions in the member names 
assigned to certain routines when stored in CALL/36 0-OS PL/I 
system libraries. For the reader's convenience, the exceptions 
are noted in Figure J-**, which is a cross reference of 
compilation module calls to other compilation modules. 

REGISTER SAVE-AREAS 

Each subroutine roust have three register save-areas. Each class of 
registers must be saved in storage which has the matching relocation 
attribute. Register save-areas are named: 

W$Cxx 
W$Pxx 
W$Gxx 

where the C, P, and G indicate the relocation class, and xx is the 
two-letter prefix used by the subroutine which saves the registers. 

COMPILER-WIDE VARIABLES 

Communication between subroutines sometimes involves the use of flags, 
switches, counters, and other discrete variables which are independent 
of the main data tables used by the compiler. These variables are 
located in the compiler's fixed-size working storage area. This area 
is permanently addressed by registers PO and P2 and is subdivided by 
relocation property into three parts: a C-area, a P-area, and a G-area r 
corresponding to the relocation properties of the general registers. 
Within these three areas, symbolic names are used mnemonically, with 
first characters of $ for ordinary variables and a for adcons. 
(Register save-area names begin with W$; see above.) Except for the 
register save-areas, each compiler-wide variable is individually 
described under "Compiler Variables." 

COMPILER TABLES AND LISTS 

The principal data used during compilation are kept in tables and 
lists. (See Appendix B. ) To facilitate the naming of all pertinent 
fields in these tables, the following symbolic conventions are used. 

Most tables and lists are assigned single-letter prefixes, p. 



Each field within such a table or list is named p$xxxx where xxxx is 
from one to seven characters ranemonically suggestive of the field 1 s 
use. 

Absolute values associated with a table or field are named pdxxxx. 

Logical masks used to extract data from a field are p#xxxx. 

Thus, for example, the dictionary attribute list has a prefix of A; 
the data definition information field in this list is named A$DEF? 
the mask used to extract type information is named A#DEFS; and the 
value code used to identify a contextual declaration is named ASCTXT. 

SYMBOLIC ORGANIZATION 

The subroutines which comprise the compiler are individually assembled. 
They are link-edited together to form two phases. The first phase 
contains all routines necessary to support compilation and code- 
generation. The second phase contains the compiler routines necessary 
to complete the initialization and initiation of the object code, 
together with a control copy of all object-program library support 
routines. The object- time library routines needed by a given 
compilation are effectively •loaded" by the second phase of the 
compiler. Communication of table structure and working storage layouts 
for the compiler is achieved through use of the Symbol Definition macro 
(SYMDEF), which is one of a set of assembler- language macros written 
especially to support the CALL/3 60-OS PL/I compiler (see Appendix C) „ 

RUNTIME ROUTINE STRUCTURE 

Because of the nature of the Runtime Library Loader routine ($HRTLL), 
all CALL/3 60-OS PL/I library runtime routines are structured according 
to certain conventions. The basic layout of a routine is illustrated 
below. 



Byte 



Word 1 



LENGTH 



| EXT J 



ENT 



C (LENGTH) bytes 

of machine- language 

code 



External Reference 
or Jump Table 

Length is CCEXT) 
half %iords. 



Entry Point Table 

Length is C(ENT) 
fullwords. 



t 






Values for Fields: 



LENGTH 



EXT 



EOT 

External 
Reference or 
Jump Table 



Entry Point 
Table 



Size of the module , excluding the first word and 
the two trailing tables*. 

Number of halfword entries in the external reference 
(jump) table • 

Number of fullword entries in the entry point table. 

One entry is made to this table for each unique 
external reference in the library runtime routine. 
The entry contains the library load number of the 
referenced routine. If more than one entry point of 
a routine is referenced* a unique entry is made for 
each entry point. (See "Library Search ($NLSIB)" 
in Volume I for more information about library 
load numbers.) 

Each word of the entry point table has the following 
format: 



Word 1 j 



Byte 



NUMB 



DISP 



NUMB - Library load number for the entry point. 

DISP - Displacement of that entry point from the 

beginning of the object code for this library 
runtime routine. 

Values for these fields are usually generated by means of the Header 
macro (IHEHDR) and Trailer macro (IHETLR) . The external reference 
and entry point tables are referenced when a library runtime routine 
is loaded, but they are not actually loaded with the routine. 

COMPILER VARIABLES 

All compiler-wide variables other than register save-areas are described 
in this subsection. These variables are located in the Oarea, P-area, 
and G-area of the compiler's fixed-size working storage. 

C-AREA 

Variables in the C-area are relocated using the base address of the 
compiler. They are as follows: 



M$ 

o$ 

$XSAVE 
$BASE 



Address of the symbolic instruction table (in module 
$TCODE) . 

Address of the operation code table (in module $TCODE) . 

Save-area for registers CI and C2 # used as required 

by the compiler support macros and the expandable- table 

support subroutines ($WBACK, $WSTEP, $WCTCT r $WEXP) . 

Address of first byte of current phase of compiler • 



P-AREA 



Variables in the P-area are relocated using the base address of the 
user's (program) area. They are as follows: 



$COMAD 
$PSCRT 

$SCNX 

$TSA 

W$PNS2 



Contains address of communications area. 

Pair of scratch words 9 used mainly by entokening phase 
in forming offset within user area. 

3can-index # contains address of next character in source 
program following last semicolon entokened. 

Address of first word boundary within source program. 
Used as starting address of dope vector list for 
compilation wrap-up. 

Used by $NCONS as save-area for register P5. 



G-AREA 

Variables in the G-area are not relocatable. They are as follows: 



$ACODE 
$ASC 



$ASCA 

$AADCN 

$DISPL 
$CSS 



$NIDSI 



Pointer to next available byte in object code area. 

High byte contains object code base identification (9ACODE). 

Offset to next available byte in static and constants 
area. High byte contains static and constants base 
identification CdASC). Initialized to allow beginning 
of static and constants area to be free for use as DSA 
of external procedure. 

Offset to next available byte in static array and string 
storage. High byte contains the base code for this area (8ASCA) 

Offset to next available byte in adcon storage. High 
byte contains the base code for this area (9AADCN) . 
Initialized past preallocated part of adcon storage. 

Contains displacement from variable tables address 
(register PI) to fixed tables address (register P2). 
Used in creating pointers to items in fixed tables area. 

Compound Statement Switch - indicates whether a unit 

of a compound statement needs to be completed 

immediately. This switch is checked just before 

generating triads for each statement. Switch has four settings: 

dCSSOF No units to complete. 

acssON Must complete an on-unit. 

acsSTN Must complete a THEN- unit. 

acSSES Must complete an ELSE-unit. 

Identifier Search Indicator - used by Locate Variable 
routine ($FVAR) to determine type of identifier desired. 
Settings: 

= Variable 

= 4 Filename 

= 8 Label constant or variable 

= 12 Entry name 

=- 255 Return from $FVAR if file created. 



$CHRFG Building Character String Switch - used by Increment 

Scan Index routine ($ASIDX) to determine whether source 
line being crossed is in middle of a character string. 
Settings: 

= Not in middle of string. 
i* In middle of string. 

$CLBLS Label Switch - indicates whether a statement label needs 
to be processed. Settings: 

=0 No label on statement 

= 1 Statement label 

= 2 Begin label 

= 3 Entry label 

= 4 Format label 

$E0S End of Source Switch - used by entokening phase to 

determine whether all of the source program has 
previously been used. Settings: 

= Not all used. 
¥■ All used. 

$CCF Compilation Completed Flag - used by Increment Scan 

Index routine ($ASIDX) to determine whether to generate 
new line tokens when crossing line boundaries. Settings: 

= Compilation not completed; build 

tokens . 
¥ Compilation completed; do not build 

tokens . 

$TAREA Translate Area - used by entokening phase to contain 
translate and test tables. 

$LLINE Last Line - used by Controller ($CNT) and entokening 

routines. Contains new line token for last source line 
for which a line number table entry was made. 

$CLPTR Label Pointer - if $CLBLS * 0, $CLPTR contains pointer 
to statement label token. 

$ABTBL Attribute Table - used in declaration processing to 

indicate attributes which the Attribute Node Creation 
routine ($ANCRE) should use in creating an attribute 
entry. 

Each attribute table consists of an attribute bit string 
and pointers for the various attributes. If an attribute 
was specified without its list, a corresponding bit 
is set in the attribute bit string , but the pointer 
for the attribute is zero. 

The format of the attribute table is shown below. 



Word 1 



Attribute Bit String 



4 Byte 
1 



Pointer to Environment List 



Pointer to Returns List 



Pointer to String Length List 



Pointer to Entry List 



Pointer to Precision List 



Pointer to Dimension List 



$APARM 



$APRMA 



$BIOTY 



Identifier a Parameter - used in declaration processing 
to indicate whether Attribute Node Creation routine 
($ANCRE) should allocate storage for identifier Csee 
also $APRMA) • Settings: 

= Not parameter; allocate storage. 
^ Parameter; do not allocate storage. 

Parameter Address - used in declaration processing to 
contain the address of a parameter being declared Csee 
also $APARM>. 

I/O Type - used in I/O processing to indicate the type 
of I/O being compiled. Settings: 



Output Edit 
List 
Data 

Input Edit 
List 
Data 



4 

8 

12 

16 

20 

not set 



$CBKN0 



Current Block Number - contains the identification 
number of the block currently being compiled. The 
identification number for the external procedure block 
is 32 (X'20 f ) # and other blocks are numbered ascendingly 
as encountered. 



$CBKCT 



Current Block Count - contains the count of the number 
of blocks encountered in the source program plus 31. 
Used to assign identification numbers to new blocks. 



$DCNME 

$DSKIP 
$DFILE 

$DDATA 

$DOBY 



$DOLHS 

$DORHS 

$DOTO 
$EXPCT 

$DOSWT 



$FEDC 



$FED 

$FEDNM 

$FCB 

$FORAD 



Declaration Name - during declaration processing , 
contains a pointer to name entry for the identifier 
being declared • 

Skip Pointer - during I/O processing , contains pointer 
to the SKIP token, if present; otherwise zero. 

File Pointer - during I/O processing , contains pointer 
to the FILE token # if present; otherwise zero (location 
is $DSKIP+4). 

Data List Pointer - during I/O processing, contains 
pointer to the LIST, DATA, or EDIT token, if present; 
otherwise zero (location is $DFILE+4). 

DO BY Clause - during loop processing, contains the 
type (second byte), precision (third byte), and scale 
(fourth byte) of BY clause expression • Second word 
contains result of expression processor evaluation of 
BY clause (unless constant provided, in which case a 
constant token is present) • 

DO Left Hand Side - during loop processing, contains, 

in same format as $DOBY, indication of iteration variable 

for loop. 

DO Right Hand Side - during loop processing, contains, 
in same format as $DOBY, indication of initial setting 
for loop interation variable. 

DO TO Clause - during loop processing, contains, in 
same format as $DOBY, indication of TO value for loop. 

Expansion Count - during array expression expansions, 
contains the number of DO- loops generated for the 
expansion. 

DO Switch - indicates which of the TO and BY clauses 
are present for the loop. Setting: 

Bit 0: =0 No TO clause ($DOTO not set.) 

=1 TO clause ($DOTO set*) 

Bit 1: = No BY clause ($DOBY not set.) 

=1 BY clause ($DOBY set.) 

FED a Constant - indicates if a format element descriptor 
(FED) being considered is all constant. Setting: 

= All constant. 

i* Not all constant. 

FED - during Format Item routine ($FORI), contains 
skeletal FED. Upon exit from $FORI, contains address 
of FED. 

FED Number - contains number of expressions in FED 
currently being processed. 

FCB - during GET and PUT processing, contains pointer 
to attribute entry for the file. 

Format Address - during format processing, contains 
the address of a pair of words in the adcon area used 
by the format. 



$PTR 

$APARAM 

$DIO 

$DDC 

$DDO 

$DSP 

$DBS 

$ERROR 



$FCBAD 

tFBKNO 
$GABK 

$GABU 

$HECVD 

L$LIBX 

$!LIBBC 
$LTEND 
dLOAD 

$MFCB 
$MLWS 
MTIO 

$PARAM 

3PSIZE 

$PSIZE 

$TDUMP 

$LNTA 

$CAA 

$AAA 



Pointer to Token Table - used to communicate a token 
table pointer between routines. 

Previous parameter identification • 

Not used. 

Not used* 

Not used. 

Not used. 

Not used. 

Parameter list for Error Message Editor ($XERR); first 
word contains a pointer to error token, next three words 
are optional pointers to token or N list entries, and 
last two words contain a character string literal 
parameter. 

Fixed adcon address of FCB common area in a form for 
code generation COC000010). 

Value for first block number. 

Blank character. Must immediately precede $GABU. Used 
to clear $GABO print area. 

Print buffer for roost messages from compiler to terminal. 

Not used. 

Displacement from the start of the adcon area to the 
first available adcon following the fixed adcon area. 

Base code for library, base code = dLIBBC. 

Length, in bytes, of the library load table. 

Displacement from start of fixed tables to library load 
table. 

Mask for FCB control bytes. 

Displacement from code to address modifiable LWS. 

Value of displacement from communications area to 
terminal I/O buffer. 

Address of parameter table shared by library routines 
referenced by a fixed adcon. 

Number of words in initially allocated library parameter 
table. 

Number of words in current library parameter table. 

Not used. 

Displacement from code to line number table. 

Displacement from code to static and constants area. 

Displacement from code to adcon area. 



10 



$RTLA 
$LWSA 
$SASA 

$I/OBA 

$DSAA 

EP1 

EP2 

$VIN 

$K1 to $K8 

$CTON 

$EXPNS 

$LASTL 
$TSOFF 
$NPVF 



$OBJLC 

$NLINE 

$NC1W 

$NC2W 

$NC4W 

$NCMSC 

$NCPXP 



Displacement from code to library area. 

Displacement from code to LWS area. 

Displacement from code to static array and string storage 
area. 

Displacement from code to disk I/O buffer area. 

Displacement from code to DSA area. 

Number of bytes that must be between end of code and 
variable tables at end of the en tokening of a statement 
in order not to cause request for more space. 

Number of bytes that roust be between end of code and 
variable tables at beginning of code generation for 
a statement in order not to cause request for more 
space. 

Not used. 

Not used. 

Count of current nesting of on-units. 

Information passed from Expression Processor Controller 
($NEXP) to Expander routine (see $EXPND). This is a 
two-word entry. The first word contains the comma count 
and the second 9 the attribute pointer. 

Last line number for which a line number table (D table) 
entry was made. 

Pair of words used by the entokening phase to calculate 
offset for new line tokens and offsets within line. 

Complex Pseudo-Variable Flag - used by Expression 
Processor Controller ($NEXP) during an assign to a 
complex pseudo- variable. If the value is 12 9 the left 
side of the assignment symbol is the complex pseudo- 
variable. 

Equated to $ACODE # the location counter associated with 
the code. 

New Line Flag. If 1, a call to a library routine has 
previously been encountered in the current source line. 

Head of the chain of constant table entries whose length 
is «* bytes. 

Head of the chain of constant table entries whose length 
is 8 bytes . 

Head of the chain of constant table entries whose length 
is 16 bytes. 

Head of the chain of constant table entries whose length 
is not 4 # 8, or 16 bytes. 

Used by Expression Processor Controller as save-area 
for arguments and right side of complex pseudo- variable. 



11 



$NDIG 



$PTO 



Used by Constant Conversion routine ($NCVT) to form 

a floating-point value of a digit of a source constant. 

The word is preset with an exponent of two and the value 

zero. 

Origin of the table of operands which are parameters 
to the symbolic instruction passed by Triad Code 
Generator ($TCODE) to the Instruction Assembler ($VINSA). 
There are six entries in this data parameter table, 
each with the following format: 



Byte 



Word 1 j 
I- 



$PTKI* 



f $PM>D 

|$PSGN |$PREG J $PLNG 



L~ 



$PTKN 



$PADD 



$PSGN 



$PREG 
$PLNG 
$NR0PN 



The operand token. The first byte is the type byte 
and the other three bytes contain a quantity which is 
dependent upon the type* These operand tokens are 
identical to the operands of a triad. 

Core address of the operand. The first byte indicates 
the relocation base and the other three bytes the offset 
to the operand within the data area. 



Contains five flags i 
X •Ol' #PSGN 

X r 10 f 

X ^O 1 #PRS 

X •**()• #PRAM 



80 1 



If 1, the operand is positive in 
core. 

If 1* the operand is address of 
FCIB for TITLE move^ 

If 1, the operand is negative in 
a register. 

If l r the operand is a parameter 
of a subprogram* 

If 1, the operand requires a dummy 
argument. 



Register address of the operand. Contains the pointer 
to the register table entry which contains the operand. 

If the operand is a string, this field contains the 
length in bytes. 

Operand area of the Expression Processor Controller 
which contains the attributes and description of the 
right operand. The format is: 
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2 3 4 Byte 

1 



Word 1 

2 
3 



$NROTM 

$NROL 

$NROPR 

$NROSF 

$NRTKN # 
$NROPI, and 
$NRPTR 

$NLOPN 



$NRSLT 



$NO 



$NXOP 



$NYOP 



$PRIOR 
$NAARG 

$NTCUR 
$NCCUR 



I I 

| $NROTM J 

I 



$NROPI | 



$NROL 
| $NROPR | $NROSF 
$NRTKN 
$NRPTR 



L J 



Right Operand Type Mask. The bits have the same meaning 
as the dictionary attribute data description field* 

Right operand length if it is a string • 

Right operand precision if its type is arithmetic. 

Right operand scale factor if its type is arithmetic. 

These fields are set from the operand stack and have 
the same meaning. 



Operand area of the Expression Processor Controller 
which contains the attributes and description of the 
left operand. The format is the same as for the right 
operand. The fields are $NLOTM r $NLOL, $NLOPR, $NLOSF, 
$HLTKN, $NLOPI, and $NLPTR. 

Operand area of the Expression Processor Controller 
which contains the attributes and description of the 
result of an operation. The format is the same as for 
the right operand. The fields are $NRTM f $NRL, $NRPR, 
$NRSF„ $NTKN # $NRPI, and $NPTR. 

Maps an area with the same format as the right operand 
area. The fields are $NOTM, $NOL f $NOPR, $NOSF, $NOTKN, 
$NOPI, and $NOPTR. 

An operand area with the same format as the right operand 
area. Used in building triads which do not come directly 
from the operator and operand tokens of the stacks. 
The second and third words of this area are referenced 
by the labels $NXTKN and $NXPTR. 

An operand area with the same format as the right operand 
area. Used in building triads which do not come directly 
from the operator and operand tokens of the stacks. 
The second and third words of this area are referenced 
by the labels $NYTKN and $NYPTR; the type mask is 
referenced using the label $NYTM. 

Contains the priority of the operator pending addition 
to the operator stack. 

Contains the count of the number of arguments in an 
argument list which are arrays. Used in processing 
calls to the array built-in function POLY. 

The number of the last triad generated. 

The number of the last triad for which code has been 
generated. 
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$NBIF 

SNFLAG 
$NXFLG 
$NEXPT 

$TCD 
$TCA 
$EXA 
W$GTC2 



Built-in Function Flag. If # function not built-in; 
if 1, built-in function and convert all arguments to 
the result type; if 2 f built-in function and arguments 
require special conversion, 

Fixed-Point Scale Flag. If 1 # scale value to result 
scale converting to result type. 

Communication Flag - used by several routines for various 
purposes. 

Indicates type of expression result required by a 
statement processor. Has the same meaning as dictionary 
attribute description field except that if the byte 
is all ones, any type is satisfactory. 

Used to dump the fixed table area on entrance to Triad 
Code Generator ($TCODEK 

Used to dump the fixed table area on each triad processed 
by $TCODE. 

Used to dump the fixed table area on each token processed 
by $NEXP. 

Save-area for the data parameter ($PTO) table in $TCODE 
when dope vectors must be generated for string arguments 
of built-in functions. 



$HEADS 



A table of pointers to the beginning-of-segment control 
word of the first segment of each expandable table 
maintained by the compiler. The individual table 
pointers are as follows: 



Node Code 






04 


- 


C$HEAD 


16 


- 


D$HEAD 


14 


- 


I$HEAD 


06 


- 


B$HEAD 


0E 


- 


E$HEAD 


13 


- 


L$HEAD 


07 


- 


P$HEAD 


18 


- 


Q$HEAD 


09 


- 


S$HEAD 


08 


- 


T$HEAD 


19 


- 


V$HEAD 


01 


- 


X$HEAD 


02 


- 


Y$HEAD 


03 


- 


Z$HEAD 



Constant table 
Line number table 
Initialization table 
Block information table 
Error message table 
Library load table 
Program structure table 
Subscript substitution table 
Temporary storage table 
Token table 
Expression stack 
Operator stack 
Operand stack 
Triad table 



A$HEAD 
H$HEAD 
N$HEAD 
J$HEAD 
$TAILS 



Pointer to the beginning of the dictionary attribute 
list (A list). 

Pointer to the beginning of the dictionary hash table 
(H table). 

Pointer to the beginning of the dictionary name list 
(N list). 

Pointer to the beginning of the supplementary 
initialization list (J list) . 

A table of pointers to the end-of-segment control word 
of the last currently active segment of each expandable 



14 



A$TAIL 
H$TAIL 

N$TAIL 
J$TAIL 

$ACTVS 



$CURRS 



SEGLST 



FREPTR 



R$TBL 
R$FX 

R$FL 

R$AD 

R$ND 

R$SY 



table maintained by the compiler. The individual table 
pointers have names of the format P$TAIL, and match 
the sequence given above for $HEADS. 

Pointer to the last dictionary attribute node. 

Pointer to the last dictionary hash table node (not 
used) . 

Pointer to the last dictionary name list node. 

Pointer to the last node in the supplementary initiali- 
zation list. 

A table of pointers to the currently available data 
space position within each expandable table segment 
maintained by the compiler. The individual pointers 
have names of the format P$ACTV and match the sequence 
given above for $HEADS. 

A table of two-word pointers associated with each 
expandable table in the compiler. These pointers support 
the non-destructive GPREV macro and the GNEXT macro. 
(See Appendix C.) The first word of the pair points 
to the beginning-of-segment control word for the given 
segment of the table currently being scanned. The 
second word points to the end of the data space within 
the given segment of the table currently being scanned. 
Together, the pointers serve as limits in each direction 
for the segment scanning macros. The individual pointers 
have names of the form P$CURR and match the sequence 
given above for $ HEADS. 

A pointer to the beginning-of-segment control word of 
the first free expandable- table segment. If no segments 
are free, SEGLST contains zero. 

A pointer to the first available (unused) word in the 
compiler's variable data space. Data space is always 
acquired by decrementing FREPTR, since working storage 
grows from higher- numbered storage locations toward 
lower-numbered ones. 

Pointer to the base of the register table (R table). 

Pointer to the fixed-point-register portion of the 
register table. 

Pointer to the floating-point-register portion of the 
register table. 

Pointer to the adcon register portion of the register 
table. 

Pointer to the end of the linear portion of the register 
table. 

Pointer to the head of the register table synonym list. 
This list contains unassigned synonym entries. Assigned 
synonyms are detached from this list and attached to 
the appropriate register table entry. Twenty synonym 
entries are available. If all are in use, R$SY contains 
zero. 
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$TEMPL 
R$ARRC 

$VSART 
$VSCRT 
$VLBLT 
$VRAMT 

$VRTYP 

$VLPAK 

$VLINE 

$SEVCO 

$SEVCT 

$VLS 
$TEMPN 



$TITLE 

$FILEON 

$NESTK 

$DBUF 

$LOAD 



Temporary storage level count • Initially zero, it is 
increased by one at the beginning of a DO-loop and is 
decreased by one at the end. 

Reference count for adcon register assignment. Initially 
zero, it is increased by one each time an adcon register 
is assigned. It effects a rotational assignment of 
the available adcon registers. 

Table of symbolic adcon register assignments used by 
the Instruction Assembler routine ($VINSA). 

Table of symbolic computational register assignments 
used by $VINSA. 

Table of local symbolic labels used by generated instruc- 
tion sequences used by $VINSA. 

Flag for register assignment: indicates single 
register; nonzero, double. Used in calling the 
Computational Register Assignment routine ($VASGC). 

Flag for register type assignment: a high-order bit 
of indicates a floating-point register; 1, a fixed- 
point register. Used in calling $VASGC. 

Doubleword-aligned work area. Used principally by Error 
Message Editor ($XERR) far unpacking and conversion 
operations. 



Print-line work area, 
lines. 



Used by $XERR to format output 



Highest severity code encountered by $XERR during 
processing of error messages. Initially zero. 

Total number of error messages produced during 
compilation. Initially zero. 

Not used. 

Level number to be assigned to temporary storage 
associated with the saving of registers around a DO- 
loop. $TEMPN is set by the "begin DO" pseudo-operation 
in Instruction Assembler C$VINSA) and used by the 
Temporary Storage Management routine ($VGTMP) . 

Dummy title attribute entry ( 6 words long) • 

On- unit flag and FCIB pointer. 

Address of top of expression stack. 

Number of disk buffers needed. 

Library load table. 
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APPENDIX B - COMPILER TABLES AND LISTS 



GENERAL 

With a few exceptions § fixed-size tables are either located within 
the fixed area of working storage or assembled as part of a compiler 
module. Some of the tables within the fixed area of working storage 
are discussed under "Compiler Variables" in Appendix A. Tables within 
a compiler module are unmodifiable as well as fixed. The symbol table 
that is within the Triad Code Generator routine ($TCODE) is discussed 
in Appendix E. 

Items within the variable portion of working storage , with a few 
exceptions # are either expandable tables or lists. Lists (by 
definition) have a variable number of entries. For a discussion of 
expandable tables and lists, see "Table Handling Macros" in Appendix 
C. Unless otherwise specif ied, the tables discussed below are located 
in the variable portion of working storage. 
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TITLE: DICTIONARY ATTRIBUTE LIST (A LIST) 

Purpose and Usage 

The dictionary attribute entry is created for each definition of an 
identifier in the source program. The attribute entry contains all 
of the information needed by the compiler about the identifier* 

Usage Description 

Each dictionary name entry points to a list (possibly null) of attribute 
entries. Contained in this attribute list are all definitions of the 
identifier made in blocks still in the process of translation. The 
attribute entries are stored as a list, with the last entry pointing 
to the name entry. If there is more than one attribute for an 
identifier, the attribute entries are ordered inversely by block number. 

Attribute entries are also created to describe the parameter 
requirements for entry names. Each entry name attribute entry points 
to a list of attribute entries specifying parameter requirements. 
An attribute entry for an entry name also contains a pointer to the 
RETURNS attributes used when the entry name is referenced. 

Each block information table (B table) entry for a procedure block 
points to the RETURNS attributes for the block as defined in the 
PROCEDURE statement. 

Entry Description - General 

There are five general types of attribute entries. Thirteen bytes 
of each entry are standardized. Figure B-l shows the first 13 bytes 
of every attribute entry other than a constant or built-in function 
name entry. (See succeeding discussion for details.) 

12 3 «* Byte 



Word 1 



r i 
J Node Type | Pointer to Next Attribute | 
J A$NODE | A$NEXT [ 

1 = Ad 1 1 
, + j 

\ Identifier! Block | Last Block | Definition | 

| Type ( Declared J Used | Information f 

J A$TYPE J A$BDCL | A$LBLK j A$DEF | 
, + , 

| Address { J 

| Base Code j Address Offset | 

j A$BASE j A$DISP j 
, + , 

| Data | [ 

j Descriptor j 

j A$DD j | 


I T 



Figure B-l. Dictionary Attribute Entry — First 13 Bytes 



The first four bytes of this area contain the standard node type and 
pointer to next attribute entry. The A$TYPE byte contains a code 

indicating the type of identifier. The values of this code are: 



AflSTRG 


4 


A9REAL 


6 


AaCPLX 


7 


A8LBLV 


8 


AdLBLC 


9 


A3ENTR 


10 


AdFILE 
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Denotes character-string variable. 

Denotes a real variable. 

Denotes a complex variable. 

Denotes a label variable * 

Denotes a statement- label constant. 

Denotes an entry name. 

Denotes a filename. 



The block number of the block in which the identifier was declared 
is contained in A$BDCL. The A$LBLK byte contains the block number 
of the last block in which the identifier was used. 



Definition information is contained in A$DEF. 
the bases of logical tests are given below. 



The values assumed on 



r 

| Mask and Bit 

| A#PARM 


-+- 


Value 



1 =0 1 =1 | 
- + + , 

J not parameter | parameter | 


| A#SCOP 
| A#TEMP 
| AtUSED 


-+- 

-+- 
-+- 

-+- 


1 
2 
3 


| internal {title move | 

j J external scope | 
_ + + , 

|not temporary) temporary 1 

| j storage | 

_ + + , 

|not used |used [ 

j not set jset j 
j static j automatic j 

J=00 tentative j=ll explicit | 
j (A#TENT) | (A#EXPL) j 
|=10 implicit J =01 contextual] 
j (A#IMPL) j (A#CTXT) j 


| A#SET 


4 
5 


| A#DEFS 


6 

7 



A$BASE and A$D1SP contain the address of the identifier,. The first 
byte of this word (A$BASE) contains a code describing the base address 
to be used, and the last three bytes (A$DISP) contain the offset from 
this base. The code numbers and the corresponding bases are as follows: 



Code No. 



Base 



4 
8 
A 
C 



Object 
Static 
Array 
Adcon 



The A$DD byte contains a data descriptor, 
separately for each attribute entry type. 

Nonlabel Variable Entry 



This descriptor is defined 



Entries for nonlabel variables are either five or six words in length 
depending on whether the variable is dimensioned. A$REG contains a 
register number indicating whether the identifier is in a register 
and, if so, which one. A$REGS contains the sign. A$DIMS contains 
the number of dimensions. A$LNG has the length of a string, if known. 
The precision and scale of arithmetic variables are in A$PREC and 
A$SCAL. 

If the identifier is dimensioned, a sixth word contains dimension bound 
codes in A$DC and a pointer to the dope vector as contained in the 
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compiler's static storage initialization list in A$DVP. Bit of the 
dimension code is if all bounds of the array are constants and 1 
if not. Bits 1 to 7 indicate whether both bounds for the first to 
seventh dimensions, respectively r are constants- If the ith bit is 
zero, then both bounds are constant for the ith dimension (l<i<7). 

If the nonlabel variable is a parameter # the address field contains 
the address of an adcon where the address of the variable or its dope 
vector is stored. If the variable is not a parameter 9 then it contains 
the address of the variable or its dope vector directly. 

If the attribute entry is for an array, then A$DD contains a special 
descriptor X'OS* and the array element descriptor is placed in A$DDE. 

Figure B-2 shows the layout of an attribute entry for a nonlabel 
variable. 

12 3 *» Byte 



Word 1 



r T 

| A$NODE | Pointer to Next Attribute | 

| =A3 f A$NEXT | 
, + , 

j Identifier | Block \ Last Block I Definition | 
j Type | Declared j Used f Information! 
j A$TYPE | A$BDCL | A$LBLK j A$DEF | 

| Address [ Address Offset j 
j Base Code | A$DISP f 
{ A$BASE j j 

, + , 

| Data J | Register | Number of j 
I Descriptor} Register j Sign {Dimensions j 
| A$DD j A$REG | A$REGS j A$DIMS | 

| | Array | Length j 
j | Element j A$LNG j^ 


j 1 A$DDE j A$PREC | A$SCAL | 

| | j Precision | Scale f 
, + , 

| Dimension | Pointer to Dope Vector j 
1 Codes | A$DVP | 
| A$DC [ j 



Figure B-2. Dictionary Attribute Entry for Nonlabel Variable 



Data Descriptor for Nonlabel Variable: 

If string = ■ 01000100* B. 
If arithmetic: 

bit 0=1 (Arithmetic) A#ARTH 
1=1 (Variable) A#VRBL 
2=0 (Non-error) A#ERR 
3=0 Shorty 

= 1 Long f A#LONG 
4 = (Ordinary) A#SPCL 
5=0 (Non-String Type)A#STRG 
6=0 Fixed) 

= 1 Float) A#FLT 
7=0 Real ) 

= 1 Complex) A#CPLX 
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Label Variable Entry 

Each label variable entry is either four or six words long depending 
on whether it is dimensioned. The entry's structure is similar to 
that of a nonlabel variable. A$DIMS contains the number of dimensions. 
If the variable is an array, the sixth word contains dimension bound 
codes and a pointer to the dope vector. Both of these are the same 
as described for nonlabel variables. 

If the label variable is a parameter # the address field contains the 
address of an adcon where the address of the variable or its dope 
vector is stored. If the variable is not a parameter 9 it contains 
the address of the variable or its dope vector directly. 

Figure B-3 shows the layout of an attribute entry for a label variable. 

12 3 *\ Byte 



Word 1 



Node Type 

A$NODE 

=A8 



Identifier 
Type 
A$TYPE 



Address 
Base Code 
A$BASE 



Data 

Descriptor 

A$DD 

Not Used 



Dimension 
Codes 
A$DC 



Pointer to Next Attribute 
A$NEXT 



Block | Last Block (Definition 
Declared | Used | Information 
A$BDCL | A$LBLK j A$DEF 



Address Offset 
A$DISP 



Register | Register | Number of 

A$REG j Sign (Dimensions 

| A$REGS | A$DIMS 

Array J 

Element j Not Used 
A$DDE j 



Pointer to Dope Vector 
A$DVP 



Figure B-3. Dictionary Attribute Entry for Label Variable 

Data Descriptor for Label Variable = " 00001000* B. 

Statement-Label Constant Entry 

Each statement-label constant entry is four words long. In addition 
to the standard information^ it contains a one-byte field A$LC 
containing label codes* These codes and the layout of the entry are 
shown in Figure B-4. 
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Byte 



Word 1 



r i 

| Node Type | Pointer to Next Attribute | 

| A$NODE | A$NEXT | 

I =A3 j j 

| + , 

j Identifier! Block (Last Block (Definition | 
| Type j Declared [ Used j Information! 
j A$TYPE j A$BDCL | A$LBLK | A$DEF j 
| + , 

| Address | | 

I Base Code | Address Offset | 

j A$BASE j A$DISP | 

, + , 

j Data | Register | Register | Label | 
| Descriptor! A$REG j Sign | Codes j 
A$DD j A$REGS \ A$LC 



Figure B-4. Dictionary Attribute Entry for Statement-Label Constant 

Label Codes: 

Bit £ li = 00 Statement label A#STMT 
= 01 Begin label A#BEG 
= 11 Format label A#FRMT 

Data Descriptor for Statement-Label Constant = • 00001001" B. 

The address word contains the address of the statement if the definition 
is explicit or the address of last usage if the definition is tentative. 

Entry Name Entry 

| Each attribute entry for an entry name is five words long. A$RETP 
contains a pointer to an attribute node that contains the RETURNS 
attributes of the entry name. These RETURNS attributes are those used 
when the entry name is referenced and not those used inside the 
procedure on the occurrence of a RETURN statement. (These attributes 
are in the block information table.) 

A#PRMS contains the number of parameters for the entry name and A$PRMP 
contains a pointer to the attribute list for the parameters. This 
list contains one entry for each parameter. If the data descriptor 
in one of these attribute entries is zero, the attributes for the 
associated parameter are unspecified. If the attributes for the 
parameters are not specif ied r the list is null. 

If the entry name is itself a parameter # the address contains the 
address of an adcon where the address of the block adcon area (BAA) 
is stored. If the entry name is not a parameter 9 it contains the 
address of the BAA. 

The format for an entry name attribute node is given in Figure B-5. 
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Byte 



Word 1 



Node Type | Pointer to Next Attribute 
A$NODE J A$NEXT 
=Ad j 
+ 

Identifier | Block |Last Block | Definition 

Type | Declaredj Used | Information 

A$TYPE j A$BDCL | A$LBLK j A$DEF 
+ 

Address | 

Base Code j Address Offset 

A$BASE | A$DISP 
+ 

Data | Pointer to RETURNS 

Descriptor! Attribute Code 

A$DD j A$RETP 
+ 

Number of | 

Parameters! Pointer to Parameters List 
A&PRMS | A$PRMP 



Figure B-5. Dictionary Attribute Entry for Entry Name 

Data Descriptor for Entry Name = f 0001011 • B. 

If the entry name is a built-in function 9 the address base code is 
zero and the rest of word 3 and words 4 and 5 contain information 
describing the function. 

Built-in Function Entry Name Entry 

Each attribute entry for a built-in function is five words long. The 
format of each entry is shown in Figure B-6. 

Byte 



Word 1 



1 


2 


3 4 


j Node 


| Pointer 


to Next Attribute 


| Type 






| .*. — 


-+ 




| Identifier 


| Block ] 


Last Block | Definition 


! Type 


J Declared) 
"+ +- 

I Choice | 


Used | Information 


1 o 


I Typ e 1 

-+ +' 

J Result | 


Built-in Number 


! Data 


Result | In-Line 


| Descriptor 


| Type | 

-+ +- 

| Function! 


Size | Number 
Argument j 


I Number 


1 of 


| Type | 


Conversion | Flags 


| Parameters 




Type | 



Figure B-6. Dictionary Attribute Entry for Built-in Function Entry Name 

The first two words are identical in meaning to those of a non-built- 
in function entry name entry. Other entries are initialized to the 
values given below. 
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Entry Name 


BICT 
Choice 
Type 


BIN 

Built In 
Number 


BIRT 
Result 
Type 


BIRS 
Result 
Size 


BINO 
In-Line 
Number 


PRMS BIFT A B,AC BIFC 

Number Function * rgumem Flags 

Parameters Type JJJ^Y (Hex) 




FLOAT 


























EXP 





EXSO 










1 





02 


24 






LOG 





LNSO 










1 





02 


24 






LOG10 





LGSO 










1 





02 


A4 






LOG2 





L2S0 










1 





02 


A4 






ATAN 


12 


ATSO 










1 





02 


34 






TAN 





TNSO 










1 





02 


24 






SIN 





SNSO 










1 





02 


24 






COS 





CSSO 










1 





02 


24 






TANH 





THSO 










1 





02 


24 






ERF 





EFSO 










1 





02 


A4 






SORT 





SQSO 










1 





02 


24 






COSH 





CHSO 










1 





02 


24 






SINH 





SHSO 










I 





02 


24 






ATANH 





AHSO 










1 





02 


24 




STRING 


























CHAR 


8 




16 


20 


4 


1 


1 


FF 


30 






SUBSTR 


8 


C'SR' 


16 


20 


72 


2 


J_ 


FF 


38 




ARRAY 
















GENERIC 


SUM 





SMSO 


20 







1 


2 


FF 


00 






PROD 





PDSO 


20 







1 


2 


FF 


00 






POLY 





YGSS 


20 







2 


2 


00 


00 






LBOUND 


8 




4 





8 


2 


2 


FF 


00 






HBOUND 


8 




4 





12 


2 


2 


FF 


00 






DIM 


8 




4 





16 


2 


2 


FF 


00 




MISCEL- 
























LANEOUS 


DATE 


8 


C'DL' 


16 


24 


80 





1 


FF 


00 






TIME 


8 


c'ti:' 


16 


28 


84 





1 


FF 


00 




ARITHMETIC 






















GENERIC 


ABS 


4 


ABTO 





4 


20 


1 





00 


20 






MAX 





MXSO 





8 




255 





00 


AO 






MIN 





MNSO 





8 




255 





00 


AO 






MOD 


8 







12 


24 


2 





00 


AO 






SIGN 


8 




4 





28 


1 





00 


AO 






FLOOR 


8 







16 


32 


1 





00 


AO 






CEIL 


8 







16 


36 


1 





00 


AO 






TRUNC 


8 







16 


40 


1 





00 


AO 






COMPLEX 


8 




12 


8 


48 


2 





FE 


28 






REAL 


8 




8 





56 


1 





01 


28 






IMAG 


8 




8 





64 


1 





01 


28 

^o J 






CONJG 


8 


k 


12 





44 


1 


o 


01 





Choice Type (A$BICT) indicates how to choose the specific routine entry 
point for a call. This field has the following meanings and values: 

No in-line expansions; choose routine by highest argument type. 
4 In-line expansions for real arguments; choose complex routine 

by highest argument type. 
8 All argument types expanded in-line. 
12 Choose entry point by number of arguments and argument type 

if arithmetic. 

Built-in Number (A$BIN) is the library basic entry point number of 
the function. All numbers of a built-in function are ordered so that 
it is possible to compute the number associated with all entry points 
of the function from the value of this field. An entry point number 
is selected on the basis of the attribute (s) of the argument Cs). It 
is used to create an entry in the library load table. The real* float , 
single precision entry point is given if the routine is arithmetic. 

Notes Entries for A$BIN are expressed as four-character names. This 
appears to conflict with the "Built-in Number" classification. 
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In the Phase 1 Initializer ($CC0NT) # a group of four characters 
is used as the last part of a symbol which is equated to the 
built-in number • The first two characters of the symbol are 
La, Thus, for EXP (the first built-in function listed above), 
the code to generate its built-in number is: 

DC AL2(L3EXS0) 

Result Type (A$BIRT) indicates the means of determining the attributes 
of the returns value. This field has the following values and meanings: 

Result is the highest type of the arguments. 

4 Result is a fixed integer. 

8 Result is real and highest argument type. 

12 Result is complex and highest argument type. 

16 Result is a character string. 

20 Result is float and highest argument type. 

Result Size (A$BIRS) indicates the means of determining the precision 
or length of the returns values. This field has the following values 
and meanings: 

Length or precision is determined by argument. 

4 Fixed complex precision is (MIN(9 # p+l) r q) . 

8 Fixed precision is (MIN(9,MAX(all p-q) )+MAX(all q)),MAX(all q) . 

12 Fixed precision is (MIN(9,r-s+MAX(q,s) ) r MAX(q r s)) 

16 Fixed precision is (MIN(9,MAX(p-q+l # l) ) ,0) . 

20 SUBSTR or CHAR length. 

24 Length is 6. 

28 Length is 9. 

In- Line Number (A$BINO) is the number identifying the built-in function. 
The in-line number of the pseudo-variable of the same name is obtained 
by adding four to this number. This field has the following values 
and meanings: 

COMPLEX pseudo-variable 

REAL 

REAL pseudo-variable 

I MAG 

IMAG pseudo-variable 

SUBSTR 

SUBSTR pseudo-variable 

DATE 

TIME 

Arithmetic to string conversion 

String to arithmetic conversion 

♦Do not appear in an attribute entry but appear as triad operands. 

Number of Parameters (A$PRMS) contains the number of parameters required 
for a function reference. If an optional additional parameter is 
possible, the count is for the minimum number of arguments. If the 
number of arguments is variable (for example, MAX and MIN) 9 this field 
is set to its maximum value. 

Function Type (A$BIFT) indicates the general classification of the 
function. The field has the following values and meanings: 

Arithmetic 

1 String 

2 Array 
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4 


CHAR 


(52)* 


8 


LBOUND 


56 


12 


HBOUND 


(60)* 


16 


DIM 


64 


20 


ABS 


(68)* 


24 


MOD 


72 


28 


SIGN 


(76)* 


32 


FLOOR 


80 


36 


CEIL 


84 


40 


TRUNC 


(88)* 


44 


CONJG 


(92)* 


48 


COMPLEX 





Argument Conversion Type <A$BIAC) indicates the conversion required 
for the arguments. The field has the following values and meanings: 

X^O - Convert to highest argument type. 

X , 02 f Convert to highest argument type and float* 

X'Ol 1 Convert to highest argument type and convert to complex. 

X f FE f Convert to highest argument type and convert to real. 

X'FF' Do not convert arguments. 

Flags Field (A$BIFG) contains a series of one- bit flags with the 
following meanings and settings: 

Bit 



A#CMPX 





If 1, 




1 


If 1, 


A#ARG 


2 


If 1. 


A#XARG 


3 


If 1, 


A#PSEU 


4 


If 1, 


A#AOK 


5 


If 1. 


Filename Entry 







complex arguments are not allowed, 
add scaling information as an argument, 
array argument causes array assign, 
function may have optional extra argument. 
If 1 # name may be a pseudo-variable. 

function name may be an argument. 



Each filename attribute entry is four words long. A$FC contains a 
file code that specifies the attributes of the file. 

If the filename is a parameter, the address field contains an address 
of an adcon that contains the address of the file control interface 
block (FCIB) for the file. If the filename is not a parameter 9 then 
the third word contains the address of the FCIB in the static and 
constants area. 

Figure B-7 shows the format of an attribute entry for a filename. 

12 3 4 Byte 



Word 1 



r _ i 

| Node Type | | 

| A$NODE | Pointer to Next Attribute | 

I =Ad | A$NEXT | 

, + , 

| Identifier) Block |Last Block | Definition | 

I Type | Declared) Used | Information! 

| A$TYPE j A$BDCL | A$LBLK | A$DEF | 
| + , 

| Address | | 

| Base Code j Address Offset | 

| A$BASE j A$DISP | 

| + ( 

| Data | | File | j 

| Descriptor! Not | Codes j Not j 

A$DD I Used | A$FC I Used I 



Figure B-7. Dictionary Attribute Entry for Filename 
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File Codes: 

bits t 1 « 00 - SYSIN 

01 - DISK INPUT 

10 - SYSPRINT 

11 - DISK OUTPUT 

bit 2 = DISK INPUT 
3 = DISK OUTPUT 
11 = DISK ENVIRONMENT 

5 = NOT USED 

6 = - EXTERNAL 

1 - INTERNAL 

7 = - NON-PRINT 

1 - PRINT 

Data Descriptor for Filename = ^000 01100' B. 

Constant Attribute Entry 

For each constant appearing in a source statement , a constant attribute 
entry is created • This attribute entry contains all of the attributes 
of the constant that can be implied from its EBCDIC form. The constant 
attribute entries look like normal attribute entries in order to 
simplify later processing* Constant attribute entries are stored in 
the token table areas so their space can easily be released at the 
end of usage. 

Each constant attribute entry is six words long. The first five words 
are exactly the same as for a normal attribute entry except that A$BDCL 
and A$LBLK do not contain the block declared and used information. 
If the converted constant has different attributes from the source 
attributes (as in the case of compile-time conversions) , the attributes 
entries (A$DD r A$LNG, A$PREC, and A$SCAL) are modified accordingly. 
However, a copy of the original attributes is retained in what is 
normally the address word. 

Since a constant is always undimensioned, the sixth word is used to 
contain a pointer to the beginning of the source representation of 
the constant and its length in bytes, if arithmetic. If the constant 
is a string, the length in the source is not given since it can be 
longer than 255 characters (for example, if the string contains embedded 
quotes, each of which must be represented by two single quotes). 



27 



Figure B-*8 shows the format of a constant attribute entry, 

1 2 3 e* 



Byte 



Word 1 



r 

| Node Type | 






| A$NODE | 




Not Used 


I =Aca | 






1 T 






| Identifier! 




I Definition 


| Type | 


Not Used | Information 


| A$TYPE I 




| A$DEF 


1 T 








I 


Original A$LNG 


| Not | 


Original f 




| Used | 




Original j Original 




1 


A$PREC A$SCAL 


1 +- 


+- 


... „- + „.. 


| Data | 


1 


I 


| Descriptor | 


Register 1| 


Not j Zero 


j A$DD | 


A$REG | 


Used | 


1 " "~ — * T 
I 1 

1 Kfr^-t- T1r***.~l \ 


Length 


1 WOT. L 


1 


Precision \ Scale 


| Length | 






| of Source | 


Pointer to Source 


| A$SRCL | 




A$SRCP 



Figure B-8„ Dictionary Attribute Entry for a Constant 



Data Descriptor: Same as for nonlabel variables , except bit 1=0, 
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TITLE: BLOCK INFORMATION TABLE (B TABLE) 

Purpose and Usage 

The block information table contains one entry for each unterminated 
block. This table contains all block-related information. 

Description 

The block information table is maintained as an expandable table. 
Each entry is eight words long. 

The table contains one entry for each block still in the process of 
compilation (including the external procedure) . The table is treated 
like a push-down list* 

Entry Format 

The layout of a block information table entry is shown below. 



Word 1 



Byte 



Node Type | 
B$NODE j 



Pointer to RETURNS Attributes 
B$RETP 



Block 
Number 
B$BLNR 



j Symbol 

j Table 

j Switch 

\ B$STSW 



I 



I 



| Number of 

j On-ENDFILEs 
j Received 
| B$FILE 



Address of Adcon 
Covering Symbol Table 
B$STA 



Address of BAA 
B$BAA 



Block | 

Number | 

I 



Amount of DSA Used 
B$DSAM 



Pointer to Constant Table Entry 
for DSA- Size 
B$DSAS 



Address of Last Prologue Link 
B$LPLA 



Address of Prologue Termination 
B$PTA 



Address of On-Unit Parameter List 
B$ON 



Values for Fields: 

B$STSW Symbol Table Switch (Test with B#STSW.) 
Bit 0: = No symbol table needed. 
= 1 Symbol table needed. 
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B$NODE For begin block, BBS = 8. 

For procedure block 9 BP» = 4. 

The first word of each entry contains a node type and a pointer to 
the RETURNS attribute node for the block if it is a procedure. These 
RETURNS attributes are those declared in the PROCEDURE statement. 
If the block is a begin block, the last three bytes of the first word 
are null. 

The second word contains the block number of the block and a switch 
determining whether to produce a symbol table for the block at the 
end of the block. A count is also kept of the number of ON ENDFILEs 
encountered within the block. If a symbol table is to be produced, 
the third word contains the address of an adcon that is to contain 
the address of the symbol table. 

The fourth word contains the address of the BAA for the block. 

In the fifth word is a count of the number of bytes in the DSA that 
are assigned. This count is from the beginning of the DSA and includes 
all of the bookkeeping bytes. The top byte of this word contains a 
DSA address base code which is the block number. 

The sixth word contains a pointer to a constant table entry that is 
to be initialized to the size of the DSA. This initialization is 
performed at the end of the block after the size of the DSA is known. 
(This size does not include any space for arrays or strings. Space 
for these is obtained separately.) 

Words seven and eight are concerned with the chain of prologue 
instructions running through the block. The seventh word contains 
the address of the last branch in the chain. This branch still needs 
to be resolved. The eighth word contains the address of the end of 
prologue instructions. These instructions immediately precede the 
first executable statement. At the end of the block the chain is 
closed by resolving the last branch with the end of prologue address. 

The ninth word contains an address for the on~unit parameter list. 
Three words (two of which are subsequently used for the list) are 
obtained when first encountering an ON ENDFILE statement within the 
block. Additional groups of three words are obtained for any other 
ON ENDFILE statements in the block. (See "On-Unit Parameter List" 
in Appendix B.) 
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TITLE: CONSTANT TABLE (C TABLE) 

Purpose and Usage 

The constant table contains an entry for each constant required in 
the object program- The arithmetic and all alphameric constants less 
than 16 bytes which do not contain primes, or are split between lines, 
are entered in their converted binary representation- The alphameric 
constants not converted are entered as pointers to their appearance 
in the source code. 

Description 

The constant table is maintained as an expandable table- The entries 
of the table are linked together according to length into four lists 
for searching; 4 bytes, 8 bytes, 16 bytes, and all others. The heads 
of these lists are pointed to from $NC1W, $NC2W, $NC4W, and $NCMSC, 
respectively. 

Entry Format 

The format of an entry containing a con verted constant is shown below. 
(The value of C$LNK does not equal 1.) 

12 3 4 Byte 

r 1 

Word 1 \ C$REG | C$ADDR | 

, + , 

2 ^ C$CNT | C$LNK j 
j __ + , 

3 | C$VAL1 | 
, „! 

4 ] C$VAL2 J 
| , 

5 i C$VAL3 | 
, , 

6 | C$VAL4 | 
l- ___________ ____j 

Values for Fields: 

C$REG If nonzero, the register table entry which contains 
the value of the constant. 

C$ADDR The offset in static storage to the value of the 
constant. 

C$CNT The number of bytes in the constant- 

C$LNK Pointer to the next constant table entry in its search 

list if nonzero- If zero, the entry is the last element 
of the list. 

C$VAL1 First four bytes of constant value. 

C$VAL2 Second four bytes of constant value if the value of 
C$CNT is greater than 4- 
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C$VMj3 Third four bytes of constant value if the value of C$CNT 
is greater than 8. 

C$VAL4 Last four bytes of constant value if the value of C$COT 
is greater than 16. 

The format of an entry containing a pointer to an unconverted constant 
is shown below. (The value of C$LNK equals 1.) 

1-2 3-4 Byte 

r -i 

Word 1 | C$REG \ C$ADDR 

f „ + 

2 | C$CKT t C$LNK 

3 I e$SPTR 

Values for Fields? 

C$REG Same as described above. 

C$ADDR Same as described above. 

C$COT Same as described above. 

C$LNK Always equal to one. 

C$SPTR Pointer to the first byte of the constant in the source 
program. 
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TITLE: LINE NUMBER TABLE (D TABLE) 

Purpose and Osage 

The line number table is the input list to the Line Number Table 
Processor ($HLNTP) and is used to generate the line number table, which 
relates the instruction addresses to the source line numbers. 

Description 

This expandable table contains one entry for each line in the source 
program. Entries are ordered by line number and machine address. 

Entry Format 

Each entry contains the following fields* 

1. Pointer to the first character (in the source program area) 
of the line number. 

2, Object code address. 

These entry fields are shown below: 

12 3 4 Byte 



Word 1 



r 

1 1 I J 

| Pointer to First Character of 

I Line Number CD$LNP) 

lilt 


i 


1111 

| Object Code Address (D$OCA) 

1 1 1 1 
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TITLE: DICTIONARY HASH TABLE (H TABLE) 

Purpose and Usage 

The dictionary hash table is the directory to the dictionary name lists 
and is a fixed-length contiguous-entry table. 

Note : In contrast to roost tables in the variable area, this table 
is not expandable. 

Description 

Each entry in the dictionary hash table is a fullword pointer to a 
dictionary name list containing entries for all names that hash to 
the same value. A hash table entry is located by assuming that the 
first four characters of the name are an integer value and dividing 
this value by the number of entries in the hash table. The remainder 
thus obtained is then an index to the hash table entry. 

Entry Format 

The format of each entry in the dictionary hash table is shown below. 



Pointer to a Dictionary Name List 



"V 

I Word 



34 



TITLE: INITIALIZATION TABLE (I TABLE) 

Purpose and Usage 

The initialization table is generated by various routines in the 
compiler as the program is being compiled. This table gives the Static 
Constants-Adcon Loader routine ($HSCAL) the information for initializing 
the static-constant and adcon areas. 



Description 

This is an expandable table having seven types of entries, 
byte (I$NODE) is used to distinguish the entry type. 

Entry Format 

1. Immediate value node 



The first 



Word I 



1 


2 3 4 


I$NODE 


1$ASAD 




I$DATA 



Byte 



2. 



where I$NODE is less than 20 and indicates the number of bytes 
of data in I$DATA to go into constant storage. I $ AS AD is the 
offset into constant storage. 

Adcon initialization node 



Word 1 





1 




2 


3 


«* 


r 


iAa 


1 
1 




I $ AS AD 




| I$DATA 

L . 



Byte 



where I $ AS AD is the offset in the adcon area to place the adcon 
indicated by I$DATA. This word contains a one-byte base code 
and three-byte displacement. 
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3, SDV initialization node 

1 2 

r 

Word 1 



Byte 




where I $ AS AD is offset in constant storage for the string dope 
vector. If the first word of I$DATA is nonzero, the offset 
to static arrays storage needs to be added to the rightmost 
three bytes of the first word* 

ADV/SADV initialization node 



Word 1 

2 
3 



1 


2 3 


4 


ID<? 


ISASAD 


iSDATA 


[ 


)ope Vector 





Byte 



where I $ AS AD is offset in constant storage for the dope vector, 
I$DATA is the length of the dope vector in bytes. The dope 
vector starts at I$DATA+4. 



5. 



BAA initialization node 



Byte 



Word 1 




I$DATA 



—J 



where I $ AS AD is offset in the adcon area for the block adcon 
area. The first word of I$DATA contains the address of the 
block's entry point. The byte at I$DATA+4 contains the number 
of parameters for the block. 
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6, Special SDV entry 

1 
r 

Word 1 



Byte 




where I $ AS AD is offset in constant storage for the dope vector. 
The offset to static storage needs to be added to the rightmost 
three bytes of the first word of I$DATA. 

7. Discarded entry 



Word 1 

2 



1 


2 3 


4 


X' 28' 


Not Used 


ISDATA 




Not Used 





Byte 



This is a dope vector entry that has been discarded and thus 
needs no initialization. I$DATA has the number of bytes in 
the dope vector. 
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TITLE: DOPE VECTOR LIST (J LIST) 

Purpose and Usage 

The dope vector list (also called supplementary initialization list) 
is generated by the Attribute Node Creation subroutine ($ANCRE) for 
skeletal dope vectors that are too large to fit into an initialization 
table (I table) segment. Compilation Wrap-Up Driver ($MCWU) places 
the dope vector in static storage. 

Description and Entry Format 

The J list is stored as a true list; that is, the first word of each 
entry in the list points to the next entry. Except for the extra link 
word, an jentry looks exactly the same as an ADV/SADV initialization 
node in the I table. 



Word I 

2 

3 
4 



JSNODE 



JSNEXT 



JSLOC 



JSCNT 



JSDATA 



Byte 

(SameaslSASAD) 
(Same as I $D ATA) 

(Dope Vector) 
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TITLE: LIBRARY LOAD TABLE (L TABLE) 
Purpose and Usage 

The library load table is used to record which library runtime routines 
will be needed during execution of a program. Entries are made in 
this table by the Library Search routine ($NLSIB). At wrap-up time, 
the Runtime Library Loader routine ($HRTLL) uses this table to determine 
which runtime routines must be loaded. 

Description 

The library load table is loaded into the fixed area of working storage. 
At the start of compilation, this table is set to zeros. A number 
which maps to a unique word in the library load table is associated 
with each runtime library routine. If a particular library routine 
is needed at object time, its word in the library load table is set 
to point to a word in the adcon area. (See "Phase 2 Initializer 
($WCONT)* in Section 3, Volume I.) At runtime, this word in the adcon 
area will contain the location of the library routine. 

Entry Format 

The format of each entry in the library load table is shown below. 

12 3 4 Byte 

r 1 

Word 1 | Adcon Displacement or Zero | 

L J 

If nonzero, this word will contain a displacement from the start of 
the adcon area. At runtime, the adcon location that is pointed to 
will contain the location at which the library routine corresponding 
to this entry has been loaded. 

If zero, either loading of the routine which corresponds to this entry 
has not been requested or no routine corresponds to this entry. (There 
are more words in the library load table than there are runtime library 
routines. ) 
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TITLES SYMBOLIC INSTRUCTION TABLE (M TABLE) 

Purpose and Usage 

The symbolic instruction table is used by the Triad Code Generator 
($TCODE) to communicate with the Instruction Assembler ($VINSA). The 
number of instructions and the origin of the instruction sequence in 
the symbolic instruction table is selected by $TCODE and then processed 
by $VINSA. This instruction sequence does not provide for covering 
of operand addresses. Instructions to provide cover are generated 
by $VINSA. The instruction sequence may contain loads of registers 
which are discarded by $VINSA if the operand is already in an 
appropriate register. The instruction may be modified by $VINSA to 
select the instruction appropriate to the operand type ( fixed 9 single 
float, or double float) or to change from the RX to the RR form of 
the instruction if the operand is in an appropriate register. 

Description 

The table is of fixed length and all entries contain preset values § 
each representing a symbolic machine instruction or pseudo-instruction 9 
which are never modified by the compiler. The table is actually 
assembled as part of the $TCODE module. The format of the symbolic 
instruction table is as follows: 



13 



17 



25 



33 



37 



m 



<\9 



56 Bit 



INSTNO 



I I I 
| TOPI JTOP2 | 

I 1 t 



I 
VOP1 J VOP2 

I 



t I 
JTOP3 JTOPU 

I I 



I 



I 



| VOP3 | VOP4 | 



I 



I 



Values for Fields: 

INSTNO Instruction Number. This value, when multiplied by 2, 

is used to index into the operation code table (O table) to 
obtain the machine instruction code and the operation 
characteristics mask. 

TOPI The TOPI field value indicates the type of information 
and contained in the VOP1 field. TOPI can assume any value from 
V0P1 through 7. See Figure B-9 for corresponding value of 
VOP1 field. 

T0P2 The T0P2 field value indicates the type of information 
and contained in the VOP2 field. TOP2 can assume any value 
VOP2 from through 7. See Figure B-9 for corresponding value 
of VOP2 field. 

T0P3 The TOP3 field value indicates the type of information 
and contained in the VOP3 field. TOP3 can assume a value of 
VOP3 1, 2 f or 3. See Figure B-9 for corresponding value of 
VOP3 field. 

T0P4 The TOPU field value indicates the type of information 
and contained in the VOP4 field. TOP** can assume a value of 
V0P4 1, 2, or 3. See Figure B-9 for corresponding value of 
VOP4 field. 

Note : TOP3, TOP4, VOP3, and VOP4 are present only for an instruction 
whose operation code indicates indexing. VOP3 generates an XI 
field ; VOP4, a B2 field. 
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TOP 

(NUM.) 

1 (SCR) 



2 (SAR) 

3 (ABSR) 

4 (PARM) 

5 (REAL) 

6 (IMAG) 

7 (SSTG) 

8 (CONS) 

9 (LIT) 
10 (LBL) 



VOP 

Null operand. Has no effect on assembled instruction. 

Symbolic computational register. Symbolic registers are 
labeled 0, 2, 4, and 6. An odd number value indicates the low- 
order half of a symbolic register pair, if it is a double 
register. The assigned register will be fixed or floating- 
point , depending upon the data requirements. 

Symbolic adcon register. Same meaning as above except 
register assigned is a general adcon register. 

Absolute register. Value is the displacement into the 
register table for the entry associated with the absolute 
register. 

Data parameter. Value of operand is 0, 12, 24, 36, 48, or 60 , 
indicating the relative distance into the data parameter 
table ($PTO table) of the information pertaining to the 
desired operand. 

Real address of data parameter. Value is as for type 4, 
except reference applies to real part only. 

Imaginary address of data parameter. Value is as for 
type 4, except that addresses are to be adjusted for the 
imaginary part of complex data. 

Scratch storage. Where and 4 means entire value 9 1 and 
5 means real part, and 2 and 6 means imaginary part of the 
first and second scratch work areas, respectively. Scratch 
storage is reused on each call to $VINSA. 

Constant entry pointer. Relative address within the constant 
entry portion of the operation code table which contains the 
operand value. 



Literal value. The operand itself. 

Symbolic label. Symbolic labels are numbers 0,1,2,.. 
Only one instruction may branch to a symbolic label, 
instruction may have more than one symbolic label. 



..9. 
An 



Figure B-9. Operand Values for Symbolic Instruction Table 
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TITLE: DICTIONARY NAME LIST (N LIST) 

Purpose and Usage 

The dictionary name lists constitute a central depository in the 
compiler for each distinct identifier and a pointer to its associated 
definition list. Combined with the dictionary hash table, these lists 
provide the means through which an identifier or information about 
the identifier may be referenced. 

Description 

The dictionary hash table is an ordered table of pointers to dictionary 
name lists. Each dictionary name list in turn is composed of one entry 
for each distinct identifier that hashes to the same value. This 
includes identifiers in the source program as well as built-in function 
names , syntactic keywords , etc. 

The list nodes are of standard list structure format; thus the first 
word of each contains the node type and a pointer to the next node 
of the list. Each list may contain two types of nodes, one type for 
four- character identifiers and another for eight-character identifiers. 
The name entries in each list are ordered in sorting order from low 
to high with four-character identifiers preceding eight-character 
identifiers. 

Each node contains a keyword-type flag and a pointer to the definition 
list of the identifier. The keyword-type flag provides an indication 
of whether the identifier is a potential keyword, and, if so, a unique 
identification of the keyword. The dictionary name lists are 
initialized with entries for all keywords, built-in function names, 
etc. 

The third and, where applicable, fourth words of each node contain 
the identifier in EBCDIC. All identifiers are filled out with blanks 
until they are either four or eight characters in length,. 

Entry Formats 

The formats for entries in a dictionary name list are shown below. 



r" 


OA 


| Pointer to next 
f entry in list 

-X-. — — «.-.*. — —. — — -. — — — — —™ —-.-. — — 




Keyword 
Type 


-^ 

| Pointer to 

| definition list 


%._ 




Identifier 
(4 characters) 




r~ 


OB 


| Pointer to next 
1 node in list 




Keyword 
Type 


T 

| Pointer to 

j definition list 


t- 




Identifier 
(8 characters) 
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Values for N$KEY (Keyword Type): 



NaNULL 

NdDCL 

NdFMT 

N8ELSE 

NdEND 

NdPROC 

N8BGN 

NdlF 

NdON 

NaDO 

NdRET 

NdCALL 

NaGET 

NdGO 

NdGOTO 

NaPOT 

NdRVT 

NdSTOP 

NdOPEN 

NaCLOSE 

NdSTMT 






NOT A KEYWORD 


1 


DECLARE 


(DCL) 


2 


FORMAT 




3 


ELSE 




4 


END 




5 


PROCEDURE (PROC) 


6 


BEGIN 




7 


IF 




8 


ON 




9 


DO 




10 


RETURN 




11 


CALL 




12 


GET 




13 


GO 




14 


GOTO 




15 


PUT 




16 
17 


REVERT 
STOP 




18 
19 


OPEN 
CLOSE 




20 


END OF 


STATEMENTS 



Condition Keywords 



NdERR 


22 


ERROR 


NdFOFL 


23 


FIXEDOVERFLOW (FOFL) 


NdOFL 


24 


OVERFLOW (OFL) 


NaUFL 


25 


UNDERFLOW (UFL) 


NaZDIV 


26 


ZERODIVIDE (ZDIV) 


NdENDF 


27 


ENDFILE 


Filenames 






NdlNFL 


29 


INPUT FILE 


NaSYIN 


30 


SYSIN 


N3ANYF 


31 


ANY FILE 


NaSYPT 


32 


SYSPRINT 


NaOTFL 


33 


OUTPUT FILE 



Options (Non I/O) 



NaTO 

NaBY 

NaWHLE 

NdTHEN 

NaOPTN 

NaSYTM 

NdlNTN 

N8EXTN 



40 TO 

41 BY 

42 WHILE 

43 THEN 

44 OPTIONS 

45 SYSTEM 

46 INTERNAL (INT) 

47 EXTERNAL (EXT) 



FORMAT Specs 



NdR 
NdC 
NdF 
NdE 
NdA 

Nax 

I NaCOLM 
NaSKIP 



53 


R 




54 


C 




55 


F 




56 


E 




57 


A 




58 


X 




59 


COLUMN 


(COL) 


60 


SKIP 
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GET/POT Options (Plus SKIP) 



NSEDIT 


61 


EDIT 


NOT.IST 


62 


LIST 


N3DATA 


63 


DATA 


NdFILE 


64 


FILE 


Attributes 


(Plus FILE) 


NdlNPT 


65 


INPUT 


NaOTPT 


66 


OUTPUT 


NaPNT 


67 


PRINT 


NaSTIC 


68 


STATIC 


NaADTO 


69 


AUTOMATIC (AUTO) 


N3LBL 


70 


LABEL 


N3ENV 


71 


ENVIRONMENT (ENV 


N3RETS 


72 


RETURNS 


NaCHAR 


73 


CHARACTER (CHAR) 


NaENTY 


7«* 


ENTRY 


N8FXD 


75 


FIXED 


NdFLT 


76 


FLOAT 


NdCPLX 


77 


COMPLEX (CPLX) 


NdREAL 


78 


REAL 


NaTITLE 


79 


TITLE 
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TITLE: OPERATION CODE TABLE (O TABLE) 

Purpose and Osage 

The operation code table is used by the Instruction Assembler ($VINSA) 
to interpret the symbolic instruction table (M table) • 

Description 

The table is of fixed length and all entries contain preset values 
which are never modified by the compiler • The first part of the table 
contains constant entries which are constant operands greater than 
a byte in length. The second part of the table contains operation 
entries # each representing a machine operation or pseudo-operation. 
This table is actually assembled as part of the $TCODE module. 

Entry Formats 

The format of constant entries in the operation code table is detailed 
below. 

1 2 N*l Byte 



r 

1 
\ M 


1 
1 R 


1 
1 s 


1 
1 x 


1 
1 


EFF 


1 
1 


OPCODE 


1 

t 


1 


1 


1 


1 




1 





1 \ 1 

j LENGTH ] VALUE ] 

I I 1 

I j 

Values for Fields: 

LENGTH Number of bytes, N, of VALUE. 

VALUE The N bytes representing the binary value of the 
constant. 

The format of operation code entries in the table follows. 

123456789 16 Byte 

t 

I 

I 

I 
j 

Values for Fields: 

M If 1, the operation code modifier is to be added 

to the OPCODE field. This adjusts the instruction 
for fixed, single float, or double float. 

R If 1 # the OPCODE field is modified by -X^O" if 
operand is in a register. 

S If 1, the OPCODE field is a pseudo-operation number. 

X If 1, the generated instruction is to be indexed 
with an XI and/or B2 field. 

EFF Defines the effect of the operation on the register 
where : 

= Loads the register positively with new value. 

1 = Loads the register negatively with new value. 

2 = Destroys the register value, result single register. 
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3 = Destroys the register value, result of a fixed 

multiply. 

4 = Destroys the register value, result of a fixed divide, 

5 = Stores the register value. 

6 = Destroys all register synonyms. 

7 = Has no effect on register value. 

8 = Changes sign of register (inverts) . 

9 = End of procedure. 

OPCODE The value in this field is dependent on the 
value in H, K, S, or X as described above. 
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TITLE: PROGRAM STRUCTURE TABLE (P TABLE) 

Purpose and Usage 

The program structure table describes the program structure statement 
currently in effect. It contains one entry for each currently 
unterminated BEGIN, PROCEDURE, IF, DO, or ON statement. 

Description 

The program structure table is an expandable table with six different 
types of entry. Each entry is four words long. The table is treated 
like a push-down list. 

Entry Formats 

Two bytes of the first word of the entry and the last word of the entry 
contain standard information. The information contained in the rest 
of the entry is dependent on the type of entry. 

The first byte of the first word contains a node type. This describes 
which of the six entry types is represented. The last byte of the 
first word contains the value of the compound statement switch at the 
time the entry was made. 

The last word of the entry contains a pointer to the dictionary name 
list (N list) entry for the label on the statement* If there was no 
label or if the statement is an IF or ON statement, this pointer is 
null. 



Values for general fields: 

P$TYPE: PaNIDO 
PaiDO 

paiF 
paoN 

PdBEG 

papRoc 



Noniterative DO 
Iterative DO 
IF statement 
ON statement 
BEGIN statement 
PROCEDURE statement 



P$CSS: 



Values for $CSS 



Noniterative DO Statement Entry : The entry for a noniterative DO 
contains no information other than the general information. 



The format for a noniterative DO entry is shown below: 
1 2 3 4 



Byte 



Word 1 



Node Type | 
P$TYPE | 



Not Used 



| Saved CSS 
| P$CSS 



Not Used 1 



Pointer to Name Entry of Label 
P$LNEP 

L J 



Noniterative DO Statement Entry 
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Iterative DO Statement Entry : An iterative DO entry is created for 

a DO statement that contains a TO, BY, or WHILE clause. Besides the 

general information, this entry contains a nonrepeating switch. This 

switch, contained in bit of the second byte of the first word, is 

if a branch to the increment and test instructions should be generated 

at the end of the DO, If the bit is 1, branch instructions are not 

to be generated. The second word of an entry contains the address 

of the increment and test instructions,. The third word contains the 

address of the forward internal branch to the end of the DO- loop. 

This branch needs to be resolved at the end of the DO. 



The format of an iterative DO entry is shown below: 

1 2 3 4 



Byte 



Word 1 



Node Type { Nonrepeating) | Saved CSS 
P$TYPE J Switch | Not Usedj P$CSS 
{ P$NRSW j | 



Address of Increment and Test Instructions 

P$ITA 



Address of Branch to End of Loop Instructions 

P$BELA 



t — 



Pointer to Name Entry of Label 
P$LNEP 



Iterative DO Statement Entry 
Values for Fields: 



P$NRSW 



= Generate branch back to DO. 

= X*80 f Do not generate branch back to DO, 



IF Statement Entry : An IF entry is created for an IF statement in the 
source program. The second word of the entry contains the address 
of the forward internal branch to the ELSE clause. The third word 
contains the address of the forward internal branch to the end of the 
IF statement. Both of these branches need to be resolved when the 
branch point is reached. 



The format of an IF entry is shown below: 

12 3 

f 

Word 1 



Byte 



Node Type } 
P$TYPE j 




Not Used 






j Saved CSS 
1 P$CSS 




Address 


of 


Branch to 
P$BECA 


ELSE 


Clause 






Address 


of 


Branch to 
P$BEFA 


End 


of 


IF 










Null 











IF Statement Entry 

ON Statement Entry : An ON entry is created for an ON statement in the 
source program. The second word contains the address of the forward 
internal branch to the end of the on- unit. This branch needs to be 
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resolved at the end of the unit. The third word contains the address 
of the on-* unit adcon area in adcon storage * This adcon area is very 
similar to a BAA and contains information about the on-unit. (See 
Appendix E. ) 

The format of an ON entry is shown below: 



Word 1 





1 2 3 4 


r" 


Node Type | | Saved CSS 
P$TYPE | Not Used j P$CSS 


j Address of Branch to End of On-Unit 
j P$BEUA 


| Address of On-Uhit Adcon Area 
j P$ADCA 


| Null 

L 



Byte 



ON Statement Entry 

BEGIN Statement Entry : A BEGIN entry is created for a BEGIN statement 
in the source program. The second byte of the first word contains 
the block number of the begin block. The second word contains a pointer 
to the block information table (B table) entry for the begin block. 

The format for a BEGIN entry is shown below: 



Byte 



Word 1 



Node Type | 
P$TYPE j 


Block Number | 

P$BLNR | Not 1 


1 
Used | 


Saved CSS 
P$CSS 




Pointer 


to Block Information 
P$KETP 


Table 


Entry 


Not Used 




Pointer to Name Entry of 
P$UIEP 


Label 





BEGIN Statement Entry 

PROCEDURE Statement Entry ; A PROCEDURE entry is created for a PROCEDURE 
statement in the source program. As for a BEGIN entry , the second 
byte of the first word contains the block number of the block and the 
second word contains a pointer to the block information table (B table) 
entry for the block. The third word of the entry contains the address 
of the forward internal branch around the procedure block. This branch 
needs to be resolved at the end of the block. 
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The format of a PROCEDURE entry is shown below: 

12 3 



Byte 



r i 

Word 1 j Node Type J Block Number | | Saved CSS 

P$TYPE P$BLNR j Not Used P$CSS 



Pointer to Block Information Table Entry 
P$BITP 



Address of Branch to End of Block 
P$BEBA 



Pointer to Name Entry of Label 
P$LNEP 



PROCEDURE Statement Entry 
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TITLES SUBSCRIPT SUBSTITUTION TABLE CQ TABLE) 

Purpose and Usage 

The subscript substitution table is used to create a token list for 
the subscripts generated for an array express ion • 

Description and Entry Format 

Every segment of this table, except the first, looks exactly like a 
token table (T table) segment. The first segment contains all tokens; 
no space is reserved at the beginning of this segment for line position. 
The table is kept in this manner so that it can be processed using 
the Get Token macro CGETKN) (see Appendix C). 

The tokens placed in this table consist of a left parenthesis followed 
by the subscript designators separated by commas and followed by a 
right parenthesis. 
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TITLE: REGISTER TABLE (R TABLE) 

Purpose and Usage 

The register table is used by the Instruction Assembler routine ($VINSA) 
to maintain the current status of all registers in the object program. 

Description 

This table is of fixed length and is divided into four parts: adcon 
register table 9 fixed register table , floating-point register table, 
and synonyms. The adcon section contains one entry for each of the 
ten general registers assigned as nonpermanent address constant 
registers. The fixed register section contains one entry for each 
of the six general registers assigned as computational registers. 
The floating-point register section contains one entry for each of 
the four floating-point computational registers. The synonym section 
contains 20 entries. 

The general structure of the register table is shown in Figure B-10. 
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RSTBL / 


DUMMY 




+4XJT 


4 


R$FX f\ 


5 


Points Here 1 


2 




. 3 


RSFL I 





Points Here 1 


1 


+ 28J* 


4 




6 


Reg. No., / 





Type, Usage, / 
Assignment \ 
Flags +44JLJT 


2 


6 


R$AD f 1 


7 


Points Here 1 


8 




9 




10 




11 




12 




13 




14 




15 


/ 


DUMMY 


+88L 


4 


RSND J 1 
Points Here 1 


5 


2 


) 


3 


Operand / 
Type & Value \ 





1 


+ 1121 


4 


I 


6 


I 





\ 


2 



+ 128 



Fixed 



Relocation 
Base & Offset 



Floating-Point 



+ 1681 



Adcon 



Operand Sign & 
Synonym Pointer 



+ 196 



+212 



Fixed 



Reference 
Count 



Floating-Point 



R Table ( 1 of 2) 



10 



11 



12 



13 



14 



15 



DUMMY 



10 



12 



13 



14 



15 



» Adcon 



Fixed 



Floating-Point 



> Adcon 



Figure B-10. Format of Register Table (Page 1 of 2) 
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+252 



Result Type 
& Last-Use 
Count 

+280 



+296 



DUMMY 



Link 



Value 



R Table (2 of 2) 



Fixed 



Floating-Point 



r 



R$SY Initially 
Points Here 



Synonym List 
Entries (20) 



/ 



Figure B-10. Format of Register Table (Page 2 of 2) 
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Entry Formats 



The computational registers, both fixed and floating-point , have the 
following format: 



Word 1 





1 






2 


3 


4 


r 


REG NO 


i 


REG 


TYPE 


\ GLOB IND 
1 


1 

| USE IND I 
1 1 




OP TYPE 


T 

i 






OP VALUE 






OP SIGN 
RESULT TYPE 


T 






NEXT SYN 
LAST-USE 





Byte 



The adcon registers have the following entry format: 

12 3 



—j 



Byte 



Word 1 



r 

j REG NO 


1 


REG 


TYPE 


1 


GLOB IND 


1 


1 


| BASE 


1 

1 
1 






1 


OFFSET 


1 






I 








REF NO 








1 












\ 



i -.J 

Values for Fields: 

REG NO Absolute register number associated with entry. 



REG 
TYPE 

GLOB 
IND 



Type of register; = Adcon, 1 = Fixed computational, 
2 = Floating-point computational 



When ON, the following bits signify 
Bit 7 
Bit 6 



The register is globally assigned to 
the indicated value. 

The register is symbolically assigned to 
the indicated value. 
Bit 5: The register is inhibited from assignment • 



USE 
IND 



OP 
VALUE 

OP 
TYPE 

OP 
SIGN 

NEXT 
SYN 



If 0, assigned as a single register? if 1, assigned 
as left half of a double register; if 2, assigned as 
right half of a double register. 

Dictionary attribute list pointer, constant 
table pointer, etc. 

Indicates the type of the op value field. 
If 1, the operand has a prefix minus sign. 



If nonzero, points to the first synonym entry which 
applies to the register. 
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RESULT The bits have the following values and meanings when ON: 
TYPE 

Bit = Result of a fixed multiply 

Bit 1 = Result of a fixed divide 

Bit 3 = Double precision result 

Bit 6 = Floating-point result 

Bit 7 = Complex result 

LAST- number of the triad after which the contents of 
USE the register can be destroyed. 

BASE Relocation base of the adcon. 

OFFSET Relative address of adcon from base origin* 

REF NO Binary number associated with the referencing of 
the adeem register? the lower the value, the more 
distant the last reference is from the current 
processing point. 

Synonyms have the following format z 

1 2 3 *t Byte 

r : -i 

Word 1 | { Pointer to Next Synonym 

I I 

! + _ 

2 | Op Type I Op Value 

I I 

t ~ . . 
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TITLE: TEMPORARY STORAGE TABLE (S TABLE) 

Purpose and Usage 

Each procedure block # format list, and on- unit has temporary storage 
associated with it. Each level of temporary storage is identified 
by an entry in the temporary storage table. 

Description 

The temporary storage table is maintained as an expandable table. 
It contains one logical section for each unterminated procedure block , 
on- unit 9 and format list. This table is referenced like a push-down 
list. 

Entry Format 

Each entry in the table is three words long. The first word contains 
the length in bytes of the temporary storage area, and the number of 
the triad after which the area will be available for reuse (last-use 
count) . The second word contains the base code and displacement of 
the storage location allocated to the temporary area. The third word 
contains the DO level associated with the temporary area when it is 
used in conjunction with register storage around DO-loops. An entry 
of zero in the first word indicates the beginning of a logical section 
of subsequent entries and separates the entries for one block from 
those for the encompassing block. 

The format of an entry in the temporary storage table is shown below. 

1 2 3 4 Byte 

r 1 

Word 1 | Length { Last-Use Count 

, 

2 | Allocated Base Code and Displacement 
, 

3 | Level 

t 
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TITLE: TOKEN TABLE (T TABLE) 

Purpose and Usage 

The token table contains one entry for each token in a source statement • 
The token table also contains an attribute entry for each occurrence 
of a constant in the statement. 

Description 

The token table is maintained as an expandable table. The Entoken 
routine ($ATKN) entokens one statement at a time and places it in the 
token table. At the beginning of entokening, all areas in this table 
except the first are released. Thus the space used for the token table 
is statement- related. 

A segment of the token table is subdivided as shown in Figure B-ll. 



Table 
Type 



Pointer to Last Segment 



12 Words 

(48 Bytes) 

Offset Within Line Indicator 



T@BEG 



Pointer to Top of Segment 



J 



Up to 48 

Tokens 

(1 Word Each) 



Offset Bytes 



? 



T@END 



Pointer to End of Segment 



\ Coi 



Constant Attribute 
Entries 
ossibly Empty) 



► Tokens Area 



? 



Table 



Pointer to Next Segment 



Figure B-ll. Format of Token Table 



The offset bytes are used to indicate the character position on the 
line where the corresponding token in the tokens area began. This 
information is used only in producing error messages. The number of 
bytes in the area is fixed; there are enough bytes for the maximum 
number of tokens in the tokens area. 

Entry Format 

All token table entries are one word in size. T$TYPE is used to 
identify the type of token. The following types are used (not including 
end- of -table type) : 

identifier 

constant 

non-parenthesis delimiter 

right-parenthesis delimiter 

left-parenthesis delimiter 

keyword 

new line. 
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T$PTR of an identifier entry points to the dictionary name list (N 
list) entry for the identifier. The format of an identifier entry 
is: 



r t 

| T$TYPE | | 

| = TaiD | T$PTR j 

| 08 | | 

L J 

T$PTR of a constant entry points to a constant attribute (A list) entry. 
The format of a constant entry is: 



r n 

j T$TYPE | j 

| =T»CNST| T$PTR j 

I 0C | | 

i j j 

T$PRTY of a non-parenthesis delimiter entry contains the priority of 
the delimiter. The priority is a combination of a one-byte parenthesis 
count followed by the absolute priority of the delimiter in one byte. 
The format of a non-parenthesis delimiter entry is: 



TSTYPE 
= T^DELM 

18 


TSDELM 


1 

T$PRTY 

i 



1 ' ¥ V 

Parenthesis Absolute 
Level Precedence 

In addition, the token for a right-parenthesis delimiter contains in 
T$COM the count of the number of commas inside the parentheses pair 
not included inside a contained parentheses pair. The format of a 
right-parenthesis delimiter entry is: 



r ^ 

| T$TYPE | I | 

j =T8RPR j T$COM j T$PRTY j 

L J 



T$PTR of a left-parenthesis delimiter entry contains a pointer to the 
corresponding right-parenthesis entry. This pointer is always valid 
since the En token routine ($ATKN) balances parentheses. The format 
of a left-parenthesis delimiter entry is: 



f 1 

j T$TYPE | | 

| =T8LPR | T$PTR j 

! 10 | I 

1 * — j 

If an identifier longer than eight characters appeared in the source 
and was a legal keyword, then a keyword token is inserted in the token 
table. T$KEY of this entry contains the keyword type which is normally 
contained in the dictionary name list (N list) entry. (See "Dictionary 
Name List (N List)" for keyword codes.) 
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The format for a keyword entry is: 



I 

! 
— j 

A new line entry signifies that a new line in the source program began 
with the next token. T$PTR of the entry points to the beginning of 
the line number in the source program. The format for a new line entry 
is: 



r 

i 
i 


T$TYPE 
=T3KEY 


1 
1 


T$KEY 


1 
1 


Not 


Used 


i 

L- 


04 


1 




1 







r _____ 1 

I T$TYPE | | 

| =T»NEW | T$PTR | 

I 20 ! | 

If a new line begins in the middle of a character string, then the 
character string constant tokens follow the new line token. Multiple 
new line tokens in a row are reduced so that only the last one is 
present in the token table. 

T$PTR for a current end or beginning of table token points to the end 
or beginning of the current area. The end of table token entry does 
not necessarily appear at the physical end of an area. The format 
for this entry is: 



r" 

1 
1 


Token 


1 
i 


Pointer to 


i 
i 


1 


Type 


1 


Next 


Area 


i 

— j 
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TITLES EXPRESSION STACK (V TABLE) 



Purpose and Usage 

The first entry of the expression stack table is created by one of 
the statement processing routines to indicate the type of expression 
to be processed • All remaining entries are added by the Expression 
Processor Controller ($NEXP) . Each time the start of a new expression 
is detected (that is* a left parenthesis is encountered) , the stack 
is pushed down and an entry created for the new expression. Each time 
the end of an expression is detected (that is, a right parenthesis 
is encountered), the stack is popped up and the top entry removed. 

Description 

The expression stack is maintained as an expandable table and processed 
as a push-down list. 

Entry Format 

The format of an entry in the expression stack is shown below. 



Word 1 





1 


2 3 


t\ 


r 


V$TYPE 


| V$CCNT | V$ACNT | 
1 I' 


V$PTYP 


| V$ATTE or V$CSDV 


| V$PRMP 

L 



Byte 



Values for Fields: 

V$TYPE The type of expression: 



Value 



4 

8 
12 
16 
20 

V$CCNT 

V$ACNT 

V$PTYP 

V$ATTE 

V$CSDV 



V$PRMP 



Symbolic Name 

VdARG 

VdSOBL 

VfiACRS 

vaEXP 

VdASS 
VaAASS 



Meaning 



Argument list 
Subscript list 
Array cross- section 
Ordinary expression 
Assignment statement 
Array assignment statement 



The comma count if a list is under process. 

The * count if a cross-section is under process. 

The type of the next outer expression. 

Pointer to the array or entry name if a list is under 
process . 

Offset in static storage to the origin of the cross- 
section dope vector if an array cross-section is under 
process. 

Pointer to the dictionary attribute node of the next 
parameter if the attributes of the arguments are 
declared. 
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TITLE: OPERATOR STACK (X TABLE) 

Purpose and Usage 

The operator stack is created by the Expression Processor Controller 
C$NEXP> to hold operators which have not been processed to form triads* 
One entry is active for each operator whose operands are still 
indeterminate • 

Description 

The operator stack is maintained as an expandable table and processed 
as a push-down list. Each operator and separator encountered in the 
token table (T table) by the Expression Processor Controller is added 
to the top of this stack. Before adding the new operator, all operators 
at the top of the stack for which the new operator determines operands 
are processed and removed from the stack. 

Entry Format 

The format of an entry in the operator stack is shown below, 

12 3 4 Byte 

r t 

| | X$PRTY 

Word 1 | J X$DELM | 1 

| J X$PRNL J X$PRCL 

I 
X$POI J X$TOKN 

I 
Values for Fields: 



X$DELM: 


Delimiter type: 




Value 


Symbolic Name 


Meaninq 


28 


T8COM 


Comma 


32 


TdASGN 


Assignment symbol 


36 


T8DIV 


Divide 


40 


T3MIN 


Infix minus 


44 


T8EXP 


Exponentiation 


48 


TdGT 


Greater than 


52 


TfiGTE 


Greater than or equal 


56 


T3LT 


Less than 


60 


TdLTE 


Less than or equal 


64 


T»EQ 


Relational equal 


68 


T8NE 


Not equal 


72 


TdOR 


Logical OR 


76 


T8AND 


Logical AND 


80 


TdMPY 


Multiply 


84 


T8PLS 


Infix plus 


88 


T9LEFT 


Left parenthesis 



X$PRTY The priority of the operator which consists of a 
parenthesis level and a precedence number of the 
operator. 

X$PRNL The most significant part of the operator priority, 

the level of nesting of parenthesis at which the operator 
occurred. 
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X$PRCL The least significant: part of the operator priority* 
the precedence number assigned to the operator. 

X$POI If bit 6 is 1, a prefix operator is applied to the 

delimiter. If bit 7 is 1, an odd number of prefix minus 
operators is applied to the delimiter. 

X$TOKN Pointer to the token table entry which contains the 
delimiter token. 
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TITLE: OPERAND STACK (Y TABLE) 



Purpose and Osage 

The operand stack is created by the Expression Processor Controller 
C$NEXP) to hold operands which have not been processed to form triads. 
One entry is active for each such operand. 

Description 

The operand stack is maintained as an expandable table and processed 
as a push-down list. Each operand encountered in the token table (T 
table) by the Expression Processor Controller is added to the top of 
this stack. Whenever it is possible to combine an operator with its 
two operands r the topmost entries of the stack representing the operands 
are removed and replaced with an entry indicating the result of the 
operation. 

Entry Formats 

An identifier or source constant has the following format: 

1 2 a H 



Byte 



r 
I 
Word 1 \ 

h 
I 
2 I 
u 



Y$OPT 
Y$POI 



I 
I 

I 



Y$OPV 
Y$TOKH 



—J 



Values for Fields: 



Y$OPT 
Value 
12 

28 

40 

Y$OPV 
Y$POI 



The type of operand: 
Hex Symbolic Name 
C TaCNST 



1C 



28 



T8IDAT 



T8PSEU 



Meaning 

Pointer to attribute 
node of a source constant 

Pointer to attribute 
node of an identifier 

Pointer to attribute 
node of a pseudo-variable 



Meaning dependent on value of Y$OPT. 

If bit is 1, the operand is parenthesized. If bit 6 
is 1, a prefix operator is applied to the operand. 
If bit 7 is l f an odd number of prefix minus operators 
is applied to the operand. 



Y$TOKN 
All other entries have the following format 



Pointer to the token table entry which contains the 
operand. 
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Byte 



Word 1 



y$opt j 
I 



Y$OPV 



, + - , 

t 1 Y$L 

Y$POI j Y$TM j j 

| j Y$PR J Y$SF 



Values for 


Fields: 








Y$OPT 


The 


type of 


operand: 




Value 


Hex 


Symbolic Name 


Meanincf 


44 


2C 




TdTRID 


Pointer to triad table 
(2 table) entry 


48 


30 




TdDATA 


Immediate constant 


52 


34 




T8LIB 


Entry point number of 
library routine 


56 


38 




TdERR 


Error operand 


60 


3C 




T8HADD 


Ha If word address in 
static storage 


64 


40 




TdFADD 


Fullword address in 
static storage 


68 


44 




TdBADD 


Byte address in static 
storage 


72 


48 




T9PADD 


Immediate DED 


76 


4C 




TaiBIF 


In-line built-in function 
number 


80 


50 




TaCON 


Pointer to constant table 
(C table) 



Y$OPV: 
Y$POI: 
Y$TM: 



Y$L: 

Y$PRs 

Y$SF: 



Meaning dependent on value of Y$OPT. 

Same meaning as above. 

Operand type mask. Has same meaning as dictionary 
attribute data description field: 

Bit If 1, operand is arithmetic. 

Bit 1 If l f operand is a variable. 

Bit 2 If 1, operand is in error. 

Bit 3 If 1 # operand is double precision. 

Bit 4 If 1, operand is of special type. 

Bit 5 If 1, operand is a character string. 

Bit 6 If 1 # operand is floating-point. 

Bit 7 If 1, operand is complex. 

The length if operand is a string. 

The precision of the operand if its type is arithmetic. 

The scale factor of the operand if its type is arithmetic. 
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TITLE: TRIAD TABLE (Z TABLE) 



Purpose and Osage 

The triad table contains one entry for each triad (that is, operator 
and two operands) generated by the statement processors and the 
Expression Processor Controller ($NEXP) • The triads are ordered such 
that they appear in the triad table in object program execution order. 
The triad entries are processed by the Triad Code Generator ($TCODE) 
to produce machine- language instructions. 

Table Description 

The triad table is maintained as an expandable table and contains all 
the triads required to represent a single source statement. Each entry 
of the table is four words in length. 

Entry Formats 

The format of each triad before code is generated is: 

12 3 4 



Word 1 

2 

3 



1 




1 


r 




Z$TOP I 


Z$LOS 


1 


Z$ROS | 


Z$TMSK 


^ 










t 










Z$LOPT | 






Z$LOP 




i 










Z$ROPT ^ 






Z$ROP 




I 










Z$TSGN | 






Z$LUSE 





Byte 



Values for Fields: 



Z$TOP 



Indicates the specific operation to be performed on 
the operands. The operators are: 



Value 



Hex 



Symbolic Name 









T3NULL 


4 


4 


T8LAST 


8 


8 


T8CALL 


12 


C 


TaENDC 


16 


10 


TaCVT 


28 


1C 


TaCOM 


32 


20 


TdASGN 


36 


24 


TaDIV 


40 


28 


T8MIN 


44 


2C 


TdLGE 


48 


30 


TdGT 


52 


34 


T8GTE 


56 


38 


TaLT 


60 


3C 


TaLTE 


64 


40 


T8EQ 


68 


44 


TaNE 


72 


48 


TaOR 


76 


4C 


TdAND 


80 


50 


T8MPY 


84 


54 


TdPLS 


88 


58 


TaLEFT 


92 


5C 


TaTEST 



Meaning 

Null 

End of triad table 

Begin call 

End call 

Convert 

Argument list (comma) 

Assignment symbol 

Divide 

Minus 

Unconditional branch 

Greater than 

Greater than or equal 

Less than 

Less than or equal 

Equal 

Not equal 

Logical OR 

Logical AND 

Multiply 

Add 

Subscript (left parenthesis) 

Test compare 
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Value 



Hex Symbolic Name 



Meaning 



96 
100 
104 
108 
112 
116 

120 
124 
128 
132 
136 
140 
144 
148 
152 
156 
160 
164 

168 

172 
176 
180 
184 
188 
192 
196 



60 
64 
68 
6C 
70 
74 

78 
7C 
80 
84 
88 
8C 
90 
94 
98 
9C 
A0 
A4 

A8 

AC 
BO 
B4 
B8 
BC 
CO 
C4 



T8DADD 

T8BRA 

T8C0MB 

T8BIB 

T8FIB 

I8RFIB 

T8STA 

T8ALGN 

T8ENDB 

T8PRLG 

T8LIBC 

T8SMTB 

T8BAL 

T8PEND 

T8EDO 

T8BGO 

T8LOAD 

T8DVM 

T8DVA 

T8SPC 

T8SNC 

T8HSA 

T8CDAD 

T8TM 

T8TITL 

T80RI 



Define address 

Branch to source label 

Combine/resolve source label 

Backward internal branch 

Forward internal branch 

Resolve forward internal 

branch 

Store address 

Align 

End block 

Prologue 

Library call 

Symbol table entry 

Branch and Link 

End prologue 

End DO 

Begin DO 

Return 

Multiply dope vector 

elements 

Store into dope vector 

element 

Scale complex positive 

Scale complex negative 

Ha If word subscript 

Store code address 

Test under mask 

Title move (special) 

OR immediate 



Z$LOS if low-order bit is 1 # sign of left operand is negative. 

Z$ROS If low-order bit is 1 # sign of right operand is negative. 

Z$TMSK Operand type mask* Has same meaning as dictionary 
attribute data description field. 

Bit If 1, operands are arithmetic. 

Bit 1 If l f operands are variables. 

Bit 2 If 1, one of the operands was in error. 

Bit 3 If 1 # operands are double precision. 

Bit 4 If 1, operands are of special type. 

Bit 5 If l f operands are character string. 

Bit 6 If 1, operands are floating-point. 

Bit 7 If 1 operands are complex. 



Z$LOPT Indicates type of value in left operand, 
types are: 



The operand 



Value 



Hex 



Symbolic Name 









T8NULL 


4 


4 


8ACODE 


8 


8 


8ASC 


12 


C 


8AADCN 


16 


10 




28 


1C 


T8IDAT 


40 


28 


T8PSEU 


44 


2C 


T8TRID 


48 


30 


T8DATA 


52 


34 


T8LIB 


56 


38 


T8ERR 



Meaning 

Null 

Code address 

Static address 

Adcon address 

Current DSA address 

Identifier attribute pointer 

Pseudo-variable attribute 

pointer 

Triad table pointer 

Immediate constant 

Library load table pointer 

Error operand 
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Value 



Hex Symbolic Name 



Meaning 



60 
64 
68 
72 
76 

80 
84 
88 



Z$L0P 
Z$ROPT 

Z$ROP 
Z$TSGN 
Z$I.USE 
The format 

Word 1 



3C 

40 
44 
48 
4C 

50 
54 
58 



TaHADD 
T8FADD 
T8BADD 
T8PADD 
T8IBIF 

T8CON 
TdREG 
TdACSDV 



Halfword static address 

Fullword static address 

Byte static address 

Immediate DED 

In-line built-in function 

number 

Constant table pointer 

Register table pointer 

Array cross-section dope 

vector address 



Left operand. Contents defined by Z$LOPT. 

Indicates type of value in right operand, 
types are the same as for Z$LOPT. 



The operand 



Right operand. Contents defined by Z$ROPT. 
If low-order bit is 1 # sign of triad is negative. 
The highest triad number which references this triad, 
of each triad after code is generated is: 

1 2 3 4 Byte 

r ' r 

| Z$TOP { Z$REG | Z$ROS J Z$TMSK 



Z$IBAS 



Z$VBAS 



Z$VSGN 



Z$IOFF 



Z$VOFF 



Z$LUSE 



Values for Fields s 

Z$TOP Same as before code generation. 

Z$REG If nonzero, the register table (R table) entry associated 
with the register containing the value of the expression. 
This field is always zero if Z$TOP is the subscript 
operator. 

Z$ROS If nonzero, the register table entry associated with 

the register containing the value of the offset to the 
array element referenced by the triad. This field is 
always zero if Z$TOP is not the subscript operator. 

Z$TMSK Same as before code generation. 

Z$IBAS Relocation base associated with object code. 

Z$IOFF Offset within the code area to the first byte of code 

which evaluates the expression* This instruction address 
is not always set for a triad. 
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Z$VBAS If nonzero, the triad value is in temporary storage 

and contains the relocation base of that storage • If 
equal to X'FF 1 , the expression is a subscripted 
reference. 

Z$VOFF Offset within the data area to the value of the triad* 

Z$VSGN Sign flags for the value of the triad. If bit 2 is 
1, the value is negative in the register. If bit 7 
is l f the value is negative in the temporary storage. 

Z$LUSE Same as before code generation. 
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TITLE: DOPE VECTOR TABLE 

Purpose and Osage 

The dope vector table provides the dope vector table pointers to dope 
vectors of static arrays and strings so that the pointers in the dope 
vectors may be initialized when static storage is allocated. 

Description 

The dope vector table is built over the source program in the user's 
area as the I table and J list are processed during phase 2 of 
compilation. Each entry in the table contains a pointer to the dope 
vector (in the constants area) of an array/string in static storage. 

Entry Format 

The format of an entry in the dope vector table is: 



Pointer {from PI) to the Dope Vector 



1 Word 

Comments 

The last entry in the table is all zeros. 
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TITLE: ENDFILE TABLE 

Purpose and Osage 

An ENDFILE table is constructed for each block in which one or more 
ENDFILE on-units is encountered. Area is reserved for this table in 
the DSA for the block by the END Generator routine ($EDGN) when the 
block is being ended. The table is initialized and updated by calls 
to the IHEONREV routine at runtime. 

Description 

Each ENDFILE on-unit encountered in a block requires eight bytes in 
the DSA for the block to build an entry in the ENDFILE table. The 
number of entries in the table is carried in a pointer to the table. 

Entry Format 

The format of an entry in the ENDFILE table is shown below. 



Word 1 j Action 1 
| Code j 

i 

2 I 

t 



3 4 
A(On-Unit Adcon) 



Byte 



A(FCIB) 



Values for Fields: 



Action Code 



A(On-Unit 
Adcon) 

A(FCIB) 



If f an ON ENDFILE statement referencing the file which 
corresponds to this entry has not been executed in this 
block. (See the CALL/36 0-OS PL/I Language Reference Manual 
for action that will be performed if the ENDFILE condition 
is raised.) 

If l f standard system action will be performed if the 
ENDFILE condition is raised. 

If 3, user-specified action will be performed if the 
ENDFILE condition is raised. 

These bytes are meaningful only for action code 3. 
Then, they contain a pointer to the on-unit adcon area. 

This word contains a pointer to the FCIB for the file. 
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TITLES ENTRY NAME DECLARATION LIST 



Purpose and Usage 

An entry name declaration list is established whenever a variable that 
is a nested entry name declaration is encountered. The list is 
maintained by the Attribute Node Creation routine ($ANCRE) and allows 
this routine to be pseudo-recursive. It is necessary because entry 
name declarations may have entry name declarations within them. 

Description 

An entry name declaration list is a push-down list. For convenience 
in storage, this list is kept in the program structure table CP table) . 
The top node of the push-down list is kept in the local variable ANPDL. 

Entry Format 

The format of an entry name declaration list is shown below. 

Byte 



Word 1 



1 




2 


3 


4 


r 




P$SEOT 






J P$ZPRM 


| P$ZETK 


| P$ZNP 

i 


» 
i 
i 


1 
1 
1 




P$ZSP 



Values for Fields: 

P$SENT Pointer to the entry attribute node being processed 
Pointer to last parameter attribute node processed 



P$ZPRM 
P$ZETK 

P$ZNP 
P$ZSP 



Pointer to current position in entokening of parameter 
list 

Number of parameters previously processed 

State of processing (RETURNS attributes or parameter 
list* 
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TITLES ON-UNIT PARAMETER LIST 



Purpose and Usage 

An on-unit parameter list is constructed for each ON ENDFILE statement 
encountered in a program. It contains addressing information essential 
to successful execution of the ON ENDFILE statement. 

Description 

An on-unit parameter list comprises two words of the static and 
constants area. It is constructed by the ON Generator ($CON), which 
stores the address of the list in the block information table (B table) . 
Code is generated to call entry-point IHEONUN of the On-ENDFILE and 
REVERT Initializer routine CIHEONREV) at runtime, passing to it the 
location of this on-unit parameter list. 

Entry Format 

The format of an on-unit parameter list is shown below. 

1 2 3 4 Byte 



Word 1 j Action | 
I Code j 

I +- 

2 | Base | 
j Code j 

l 



Pointer to On-Unit 
Adcon Area 



Displacement 



Values for Fields: 
Action Code 



Pointer to 
On-Unit Adcon 
Area 

Base Code 



If 1, standard system action will be performed 
if the ENDFILE condition is raised. 

If 3, user-specified action will be performed 
if the ENDFILE condition is raised. 

These bytes are meaningful only for action code 3« 
Then, they contain a pointer to the on-unit adcon 
area. 

If OC, the remaining three bytes of this word 
contain a displacement to a location in the 
adcon area which contains the address of the 
FCIB for this file. 

If 08, the remaining three bytes of this word 
contain a displacement to a location in the 
static and constants area which contains the 
address of the FCIB. 
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TITLE; ROUTINE ENTRY NAME PROCESSED TABLE 

Purpose and Usage 

One entry is created in this table for each library runtime routine. 
The entry corresponds to a fullword entry for the routine in the library 
load table (L table) . The routine entry name processed table is used 
exclusively by the Runtime Library Loader C$HRTLL) to indicate that 
a routine is being or has been loaded. 

Description 

The routine entry name processed table is located immediately following 
the library load table in the fixed area of working storage. At the 
start of compilation , this table is set to zeros. It is N bytes in 
lengthy where N is the number of entries in the library load table 
(that is, the number of library runtime routines). 

Entry Format 

Each entry in the routine entry name processed table is one byte in 
length. It contains a two-digit hexadecimal action code. 

1 Byte 



r i 
| Action | 

| Code | 

i j 

When Runtime Library Loader begins processing an entry in the library 
load table, it sets the byte corresponding to this entry in the routine 
entry name processed table to X'01 - . Thus, if an entry in the routine 
entry name processed table is X f 01' # the routine identified by this 
entry has been or is being loaded. If an entry contains zeros, no 
action has been performed on the routine. 
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APPENDIX C - COMPILER SUPPORT MACROS 



The compiler support macros were created solely for the CALL/360-OS 
PL/I iraplementers; the CALL/360-OS PL/I user will never come in contact 
with them. 

There are two general categories of compiler support macros: those 
which are used in handling tables and the others. A general term 
cannot be given to describe the overall function of the other macros; 
stated simply, they support implementation of the CALL/360-OS PL/I 
compiler. 

The descriptions in this appendix explain how to use the macros in 
each category. They do not describe how the macros perform their 
functions. The macros in each category are described in alphabetic 
order 9 according to their mnemonics. The following rules explain the 
notation that is used. 

1. Lowercase letters represent the name of a general class of 
elements in the CALL/360-OS PL/I language from which a particular 
entry must be selected by the user. 

2. Uppercase letters and punctuation must appear as shown. 

3. Braces { > are used to denote grouping. A vertical stacking 
of possible entries indicates that a choice is to be made by 
the user. 

4. Square brackets ( ] denote options. Any entries enclosed in 
brackets may be omitted. 



TABLE HANDLING MACROS 



EXPANDABLE TABLES 

Expandable tables are linearly accessed stacks which are maintained 
in fixed-size segments. Currently the size of a segment is defined 
to be 64 words; this size has been chosen to allow the information 
required for a given table in an average program to be contained in 
a single segment without overflow. The format of an expandable table 
segment is: 



ptrl 



ptr2 



Beginning- 
of-segment 
control word 



TC^C^C^CX^^ > — • 



End-of-segment 
control word 



The first and last words of the segment are reserved for control 
purposes. The value of n is the node code for the particular table; 
ptrl points to the end-of-segment control word of the preceding table 



75 



segment and is zero for the first segment in a table; ptr2 points to 
the beginning-of-segment control word of the following table segment 
and is zero for the last segment in a table. 

Associated with each table is a set of variables. p$EEAD points to 
the beginning-of- segment control word of the first segment of the 
table. p$TAIL points to the end- of- segment control word of whichever 
segment is currently the last segment of the table. p$ACTV points 
to the first available (unused) word in the current table segment. 
A two-word variable provides information on the table segment currently 
accessed; p$CURR contains a pointer to the top of the segment currently 
being accessed, and p$CURR+4 contains a pointer to the unused space 
at the bottom of the currently accessed segment. Since the C table 
and I table contain variable- length entries , the amount of unused space 
at the bottom of a given segment is not calculable on the basis of 
entry length. Accordingly, the word immediately preceding the end- 
of-segment control word is reserved for a pointer to the unused space 
in these two tables. 

The macros to process entries in an expandable table are listed below; 
each macro is described individually later in this section. Expansion 
and contraction of table segments is automatically handled by the 
macros and is transparent to the user. 

• GCURR sets a pointer or register to the displacement of the current 
table entry. 

• GNODE uses p$ACTV to acquire space for a new table entry and sets 
a pointer or register to the displacement of the new entry. 
Subsequent use of GCURR will obtain a pointer to the new entry. 
Table segments are automatically expanded, if required. If a new 
segment is needed, an attempt is made to obtain it from the free 
pool, that is, list of released segments pointed to by SEGLST of 
the fixed area. If there are no entries in the list, space is 
acquired from the area pointed to by FREPTR of the fixed area. 

• GPREV uses p$ACTV and p$CORR to step backwards in the table and 
set a pointer to the entry immediately preceding the entry that 
was current. Subsequent use of GCURR will obtain a pointer to 
the new entry. The space occupied by the old entry is released 
(unless specifically inhibited) and is no longer available. Table 
segments are automatically returned to the free pool, if required. 

• GNEXT uses p$CURR to step forward in the table and set a pointer 
or register to the new entry. GNEXT can be meaningfully used only 
after uses of GPREV which did not release the old table entries. 
Both GPREV and GNEXT signal when they have stepped past the 
beginning or end of the table. 

• MN0DE initializes the p$CURR and p$CURR+«* pointers so that GPREV 
with SAVE option may subsequently be used. 

• FAREA frees all segments of the table except the first and re- 
initializes the first segment for subsequent GNODEs. 

• GFRST sets a pointer to the first node of a table and initializes 
p$CURR and p$CURR*4. GNEXT can subsequently be used to step through 
the table. 

Four compiler support subroutines are used to support the expandable- 
table macros. $WEXP is used by GNODE to obtain a new segment. $WCTCT 
is used by GPREV and FAREA to release unused segments to the pool of 
unused segments. C$WEXP will attempt to obtain a new segment from 
the pool, if one is available, before it obtains a new space.) $WSTEP 
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is used by GNEXT to step from one segment to the next (to set p$C0RR) . 
$WBACK is used by GPREV (with SAVE option) to step from one segment 
to the preceding segment. (See Section 3, Volume I.) 

LISTS 

Lists may be single-ended or double-ended, A single-ended list has 
a universal variable, p$HEAD, associated with it. New entries are 
added to the head of the list. This kind of list has low overhead 
in its use. When the list is read, however, entries are returned in 
reverse order. 

A double-ended list has two variables associated with it: p$HEAD and 
p$TAIL. p$HEAD is set by the user to point to the first item in the 
list and does not change thereafter. p$TAIL points to the end of the 
list. New entries are added to the end of the list (with their pointer 
field set to zero) , and p$TAIL is updated with each addition. This 
list has somewhat higher overhead, but the original order of the entries 
is maintained. 

A set of macros is available to process lists. Maintenance of linkages 
and head and tail pointers is automatic. To minimize overhead in the 
macros, the initial setting of p$HEAD in double-ended lists is done 
by the user. 

The macros to process entries in a list are noted below; each macro 
is described individually later in this subsection. 

• GNODE acquires space for a list entry and chains the entry to the 
head or tail of the list, as specified.. (Chaining may be inhibited 
if desired.) A pointer is set to the new entry. 

• GNEXT steps to the next entry in a list which has already been 
formed, and either sets a pointer to the entry or signals the end 
of the list. 

• DNODE deletes from a list the entry which follows a specified 
entry. Space used by deleted nodes is not recovered. 

• INODE inserts an entry which was not chained by GNODE into a list 
at the HEAD, TAIL, or following a specified entry. DNODE and INODE 
can be used jointly to reorder a list or transfer entries from 

one list to another* 

A single-letter symbolic prefix is associated with some fixed tables , 
all expandable tables, and all lists used by the compiler. The 
assembler-language labels for all fields within and values associated 
with a given table or list consistently begin with the single- letter 
prefix assigned to that table or list. The table-prefix letter codes 
are as follows: 
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Code Meaning 

A Dictionary attribute list 

B Block information table 

C constant table 

D Line number table 

H Dictionary hash table 

I Initialization table 

j Supplementary initialization list (dope vector list) 

L Library entry name table (library load table) 

M Symbolic instruction table 

N Dictionary name list 

o Operation code table 

P Program structure table 

Q Subscript substitution table 

R Register table 

S Temporary storage table 

T Token table 

V Expression stack 

X Operator stack 

y Operand stack 

Z Triad table 

The tables and lists noted above are discussed in Appendix B of this 
manual. Other fixed tables, which are also used in CALL/3 60-OS PL/I # 
are discussed in Appendix B or in other appendices that deal with 
closely related topics* These tables and the sections in this manual 
where they are discussed are noted below. 

Table Explanation In ifanual 

Attribute Table Appendix A 

Data Parameter Table Calso Appendix A 

called table of operands 

or $WW tablel 

Dope Sector Table Appendix B 

ENDFILE Table Appendix B 

Entry name Declaration List Appendix B 

On~Pnit Parameter List Appendix B 

Routine Entry Name Processed Appendix B 

Table 

Symbol Table Appendix E 
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TITLE: DELETE ENTRY MACRO CDNODE) 

Purpose 

The Delete Entry macro is used to delete an entry from a list. 

Call 

I symbol] DNODE table-prefix 

( (register-name) ) r ( (register-name) \ , 
\pointer-name II pointer-name f 



table-prefix: A, N 

register-name: G2, G3, G4, G5 

pointer-name: any fullword, covered pointer 

The second operand points to the list entry which immediately precedes 
the entry to be deleted. The third operand, if present, will be updated 
with a pointer to the deleted entry. 

Registers Used 

G6, G7, P4, P5 

Value Returned 

Third operand updated to point to deleted entry, if specified. 
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TITLE: FREE AREA MACRO (FAREA) 
Purpose 



The Free Area macro releases all space allocated to an expandable table 
and reinitializes the table in preparation for a subsequent first 
entry. 



Call 

[symbol] FAREA table-prefix 

r / (register-name) > T r T i 
[ '\ pointer-name } } lvalue] 



table-prefixr B,D,L,P,Q,S,T,V,X f Y,Z 

register-name z GO, G2, G3, G4 

pointer-name: any fullword covered pointer 

value: an absolute expression with a value less than 

25€ , 

All entries in the specified table are discarded and their space is 
returned to the free pool. The initial segment of the table is retained 
and reinitialized for subsequent use^ 

If a second operand is present, it will be set to a pointer to the 
first node in the table, and space will be reserved for that node Cas 
in GNODE). 

If a third operand is present, the specified value will be placed in 
the first byte of the first node in the table, and space will be 
reserved for the node. 

Registers Used 

G5, G6, G7, P5, CI, C2 

Value Returned 

Second operand set to point to the first node of the reinitialized 
table, when specified. 
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TITLES CURRENT ENTRY LOCATOR MACRO (GCURR) 

Purpose 

The Current Entry Locator macro locates the current (most recently 
constructed) entry in an expandable table. 



Call 

[symbol] GCURR table-prefix 

r I (register-name) \ ^ 
\ pointer-name / 



table-prefix: B,D # I # L,P # Q,S,V, X f Y,Z 

register-name: GO, G2, G3 r G4 f G5 # G6, Gl 

pointer-name: any fullword, covered pointer 

The second operand is set to point to the current (last constructed) 
or last unreleased entry in the table. If the second operand is 
omitted* the output pointer is placed in G7, 

Registers Used 

Gl 

Value Returned 

Pointer to current table entry 9 in second operand, if register? in 
second operand and Gl 9 if pointer? in G7 if second operand is omitted. 
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TITLE: POINTER TO FIRST NODE MACRO (GFRST) 

Purpose 

The Pointer to First Node macro establishes a pointer to the first 
node of a previously constructed expandable table. 

Call 

[symbol] GFRST table-prefix 

r ( (register-name) \ , 
\ pointer-name -j 

table-prefix: any expandable- table prefix 

register-name: G2 9 G3 r G4 # G5 f G7 

pointer-name: any fullword covered pointer 

The second operand is set to point to the first node of the specified 
table. If the second operand is omitted, G7 is used. 

Registers Used 

G6, G7, if second operand is a pointer- name. 

Value Returned 

Pointer to first node of table, in second operand (and in G7 if second 
operand is a pointer-name) >. 
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TITLE: GET NEXT ENTRY MACRO (GNEXT) 

Purpose 

The Get Next Entry macro steps to the next entry in a table or list 
which has already been constructed. 



Call 



[symbol] GNEXT table-prefix 



[, 



(register-name- 1) 
pointer-name- 1 



] [, 



(register-name- 2) 
pointer-name- 2 



table-prefix : 
register-names ; 
pointer- names : 



A,B,C,D,H,IA,IC,L,N,P,Q,S,V,X,Y,Z 

G2, G3, G4 

any fullword, covered pointer 



Note ; References to the I table are either IA or IC. IA is used for 
a two-word adcon entry; IC is used for all other entries. 

For lists , the second operand is assumed tb contain a pointer to a 
given list entry. The macro updates the second operand to point to 
the immediately succeeding list entry and sets the condition code to 
nonzero. If the end of the list is reached* the second operand and 
condition code are set to zero. If the second operand is omitted , 
the input pointer is assumed to be p$HEAD and the output pointer is 
placed in G7. 

For tables , the second operand is assumed to contain a pointer to a 
given table entry. The macro updates the pointer to the next table 
entry and sets the condition code to nonzero. If the end of the table 
is reached, the second operand and condition code are set to zero. 
The second operand may not be omitted for tables. The first call to 
GNEXT should be preceded by calls to either MNODE (followed by GPREV) 
or GFRST. 

Table entries IC and C only, being of variable length, require the 
length of the current node to be specified by a third operand, either 
register or pointer. The third operand is not examined for any tables 
except IC and C. 

Registers Used 

G5, G6, G7, P5, CI, C2 

Values Returned 

Pointer to next entry in second operand (G7, if defaulted for lists); 
condition code set to zero at end of table or list; nonzero, otherwise. 
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TITLES GET NODE MACRO CGNODE) 



Purpose 

The Get Node macro dynamically acquires working storage for the 
construction of table or list entries, including automatic management 
of expandable table segments and list linkages. 



Call 



[symbol] GNODE table-prefix 



[, 



(register-name-1) 
length 



] [, 



HEAD 
TAIL 
FREE 



] I, 



(register-name- 2) 
pointer-name 



table-prefix: 
register-name-1 : 
lengths 
register-name- 2 s 

pointer name: 



A,B,C,D,B,IA,IC, J,L,N4,N8,P,Q,S,T,V,X,Y,Z 

G2, G3, G4 

an absolute expression 

G2, G3, G4, G7 (should not duplicate register- 
name-1) 

any fullword, covered pointer 



Note: References to the I table are either IA or IC. IA is used for 
a two-word adcon entry! 1C is used for all other entries. 

When the second operand is omitted* the standard length for each entry 
is used, except for A, IC, C, and J, for which a length must be 
specified. 

Ose of register-name-1 implies that the length of the table entry is 
contained in the specified register* An explicit length operand 
overrides the standard length for all tables. 

For the token table (T table) only, each call to GNODE acquires a new 
table segment and returns a pointer to the first usable word within 
the new segment. 

For lists, the node obtained is chained to whichever end of the list 
is specified by the third operand. The operand FREE inhibits chaining. 
If the third operand is omitted, HEAD is assumed. The third operand 
is ignored for tables. 

The fourth operand optionally specifies where the value returned by 
the macro will be placed. If the fourth operand is omitted, register 
G7 is used. 



Registers Used 

G5, G6, G7, P5, Cl f 
Value Returned 



C2 



Pointer ta the first word of the new entry in the fourth operand, if 
the fourth operand is a register? in G7 and the fourth operand, if 
the fourth operand is a pointer; and in G7 if the fourth operand is 
omittecL 
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TITLE: GET PREVIOUS ENTRY MACRO (GPREV) 

Purpose 

The Get Previous Entry macro obtains the previous entry in a table* 

Call 

[symbol] GPREV table-prefix 
(register-name) 



[, 



pointer-name I i r i u 1 1 

f (register-name) 1 „.-. | J t' labeiJ 
[ pointer-name J ' SAVE J 



table-prefix: B,P,S,X,Y,Z,Q,V,I,L,D 

register-name: G2 # G3, G4 

pointer-name: any fullword # covered pointer 

When the SAVE operand is not specified, the entry in the table which 
was current when the macro was called is released to the free storage 
pool # and its contents are not subsequently available. The preceding 
entry is made the current entry. 

If the second operand is omitted, the output pointer is placed in G7; 
if a register or pointer name is given, the output pointer is placed 
in the second operand. 

If the SAVE operand is specified, storage is not released, and table 
entries are subsequently available for later use. The register or 
pointer named in the second operand must point to a desired table 
entry; the macro updates the pointer or register to the table entry 
preceding the one originally pointed to. Entries stepped over may 
later be recovered using the GNEXT macro. If SAVE is specified, a 
pointer or register must also be specified, and the pointer or register 
must have been initialized prior to the first GPREV call by a call 
for MNODE to mark the entry at which reversal begins. 

If a label is specified as the fourth operand, control will be 
transferred to that label when an attempt is made to back off the 
beginning of the table. 

Registers Used 

G5, G6, G7, P5, CI, C2 

Values Returned 

Pointer to table entry in second operand, if register? in G7 and the 
second operand, if pointer; in G7 if the second operand is omitted 
(when not using SAVE option) . If GPREV backs off the beginning of 
the table, the second operand and the condition code are set to zero. 
Otherwise the condition code is set to nonzero. 
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TITLE: INSERT ENTRY MACRO (INODE) 

Purpose 

The Insert Entry macro inserts an entry into a list. 

Call 

[symbol] INODE table-prefix , 



(regis ter-name) 
pointer-name 



If (register-name) 1 

r J pointer-name I 

l ' 1 HEAD \ 

I TAIL J 



table-prefix: A,N 

register-name: G2, G3, G4 

pointer-name: any fullword, covered pointer 

The second operand points to the entry to be inserted. The third 
operand points to the list entry following which the new entry is to 
be inserted- The third operand may also simply specify the HEAD of 
TAIL of the list- If the third operand is omitted, TAIL is assumed. 

If HEAD or TAIL is specified, p$HEAD or p$TAIL will be updated by the 
macro- Otherwise the operands remain unchanged. 

Registers Used 

G5^ G6 r G7, P«l^ P5 

Value Returned 

Updated p$HEAD or p$TAlL, if the third operand so specified- Otherwise, 
none. 
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TITLE: ESTABLISH POINTER MACRO (MNODE) 

Purpose 

The Establish Pointer macro has two purposes: 

1. To establish pointers for subsequent use of the GPREV macro 
with SAVE option • 

2. To reestablish pointers in p$CURR and p$CURR+4 which may have 
been altered. GPREV with the SAVE option causes alteration 

of the p$CURR pointer when a segment boundary is crossed. Thus 
GPREV with SAVE option followed by GPREV without SAVE must have 
an intervening MNODE macro to reestablish pointers to the segment 
in effect before GPREV with SAVE was issued. 

Note : Successive uses of the GPREV macro with SAVE option must not 
be separated by an intervening MNODE macro. 



Call 



[symbol] MNODE table-prefix. 



( regis ter-name ) 
pointer-name 



table-prefix: B # P # S # X # Y # Z # Q f V # I,L,D 

register-name: G2, G3 # G4 

pointer-name: any fullword, covered pointer 

MNODE places a pointer to the current node in the second operand and 
establishes internal controls so that subsequent GPREV macros with 
the SAVE option can step backwards in the table non-destructively. 

Registers Used 

G6, G7 (Second operand may specify G7.) 

Value Returned 

None 
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OTHER MACROS 

Compiler support macros that perform functions other than table handling 
are described below. 

TITLE: SUBROUTINE CALL MACRO (CALL) 

Purpose 

The Subroutine Call macro provides linkage between subroutines in the 
CALL/360-OS PL/I compiler- 

Call 

[symbol] CALL 

ad con- name 

$adcon-name 

@adcon-name 

adcon-name: name assigned to the adcon for the entry 

point of the desired subroutine 

By convention , the names of all entry-point adcons in the compiler 
begin with a. Entry-point names themselves begin with $. The 
Subroutine Call macro will accept a name with or without an a, or with 
a $ r and convert it to the proper form* 

The coding used in the calling sequence is as follows: 

L CI r adcon 
BALR CI, CI 

Registers Used 

CI 

Value Returned 

None 
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TITLE: SVC INTERFACE MACRO (CSVC) 

Purpose 

The SVC Interface macro provides a uniform interface for SVC invocation 
for compiler routines # regardless of operating environment. 

Call 

[symbol] CSVC svc-code-number 

svc-code-nuraber: operand number of the desired SVC 

The macro generates a call upon an SVC interpreter subroutine* In 
a simulated environment, the SVC is also simulated- In the real 
environment, a live SVC is given. By using an interface, the necessity 
for two versions of compiler routines is avoided. 

Registers Used 

None 

Value Returned 

None 
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TITLE: DED MACRO (DED) 

Purpose 

The DED macro changes a compiler data descriptor to a DED for the 
library. 



Call 



[symbol] DED 

(register-name) 
pointer-name 



register-name : 



pointer- name : 



any register (Only the high byte (bits 0-7) 
changed* ) 

any covered byte pointer 



The byte indicated or the high byte of the register indicated is changed 
from a compiler data descriptor to a DED acceptable to the library,,. 

Registers Used 

None 

Value Returned 

None 
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TITLE: EXPRESSION PROCESSOR CALL MACRO (EXPG) 

Purpose 

The Expression Processor Call macro generates a call to the Expression 
Processor Controller ( $NEXP) • 

Call 

(symbol! EXPG expression- type, result- type, label 

expression- type: code for the type of expression: 

vaEXP expression 
VdASS assignment 
VdAASS array-as s ignment 

result-type: data descriptor byte for the type of expression 

desired 

label: covered label 

A call is generated to the Expression Processor Controller, If the 
expression is an array expression, return is to the third operand., 
This macro establishes all information needed by the Expression 
Processor Controller except the contents of $PTR. 

Registers Used 

GO, G5, G6, G7, P5, Cl, C2 

Value Returned 

None 
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TITLE: FORWARD INTERNAL BRANCH MACRO (FIB) 
Purpose 

The Forward Internal Branch macro creates a forward internal branch 
triad. 

Call 

I symbol] FIB 



( regis ter-name } 
pointer-name 



, branch- code 



register-name: G2 # G3 # GH (Contains an offset from PI.) 

pointer-name: any fullword pointer in fixed working storage 

branch-code: value for branch code (Use as right-operand of GTRD 
macro.) 

The contents of the location indicated by the first operand are placed 
in the left operand of the FIB triad. The location is filled with 
a triad pointer pointing to the FIB triad. If the previous contents 
of the second operand was a triad pointer, the indicated triiad is 
changed so that its last reference word also points to the new triad. 
This macro calls the Get Next Triad Entry routine ($GTRIAD) to obtain 
the next available space in the triad table (see Section 3 # Volume 
I). 

The second operand is passed intact as an operand to the GTRD macro. 

Registers Used 

G5, G6, G7, P5, Cl r C2 

Value Returned 

None 
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TITLE: ERROR INTERFACE MACRO (GENER) 

Purpose 

The Error Interface macro provides an interface for error messages. 

Call 



[symbol] GENER 
message- number : 

pointer: 
parameter-list: 



message- number , pointer [, (parameter- list) 3 

number assigned to the error message which is 
to be printed 

pointer to an entry in the token table indicating 
the token at which the error was detected 
(register notation or a name may be used) 

one, two, or three operands. The operands must 
be pointers to tokens, name list entries, or 
attribute nodes (either register notation or 
named) or a character string of not more than 
eight characters enclosed in quotes. Only one 
string may be specified in the parameter list. 

The macro prepares the interface with the Error Message Editor ($XERR) 
by storing the specified pointers and/or string into the error 
communication area, $ERROR. The pointer is used to obtain the line 
and column number of the statement in error. The parameter pointers 
are used to insert variable data into the texts of the error messages. 

Registers Used 

None 

Value Returned 

None 
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TITLE: GET TOKEN MACRO (GETKN) 

Purpose 

The Get Token macro updates a pointer to the next token in the token 
table* 

Call 

(symbol 3 GETKN 

((register-name J t 
pointer-name J 



register- name: any G-register except GO 

pointer-nan©: any covered* fullword pointer 

The macro will update the first operand to point to the token following 
the one originally pointed to by the first operand, I*ine-nuraber tokens 
are ignored* 

Registers Used 

FS Clf pointer-name is used, G7.> 

Value Returned 

Updated value in the first operand, pointing to the token following 
the input token. 
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TITLE: GENERATE TRIAD MACRO (GTRD) 

Purpose 

The Generate Triad macro constructs portions of a triad, as specified. 

Call 

[symbol] GTRD operator, left-operand t, right-operand] 

operator: absolute expression less than 256, or a parenthesized 
register-name (GO, G2, G3, or G4) 

left-operand: a self -defining- term, the name of a field, or a 
parenthesized register-name (GO, G2, G3, or G4) 

right-operand: same as for left-operand 

A call is made to the $GTRIAD routine to obtain the next available 
space in the triad table. (See Section 3, Volume I.) 

The macro fills in the operator byte and the left- and right-operand 
words of the triad. Operand words must be preforraatted (that is, 
contain the type byte if required) before the macro is called. 

Registers Used 

G5, G6, G7, P5, CI, C2 

Values Returned 

Pointer to the constructed triad in G7, Address of constructed triad 
in P5. 
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TITLE: SYMBOLIC INSTRUCTION TABLE MACRO CINST) 

Purpose 

The Symbolic Instruction Table macro allows a convenient notation for 
the various components of an entry in the symbolic instruction table 
(M table). 

Call 

r symbol ] INST operation* operand-1* operand- 2 [ * operand- 3 * 
operand- M 

operation: name of an instruction in the operation code 
table CO table) 

operand: a macro-argument sub list of the form: 

(type* value) 

where type is a character string which* when prefixed 
with the characters Ma* forms a symbol defined as 
an absolute value; and value is a self -defining 
term* or a symbol having an absolute value. 

Operand-1 represents the Rl field of the generated instruction; operand- 
2* the R2 or storage address field; operand- 3* if present* the XI 
field; and operand-4, the Bl field. 

If the operation is XFR r only operand-1 is specified; it must be the 
name of another instruction in the symbolic instruction table. 

If a symbol is specified in the name field* it is defined as the 
displacement between its location and the base of the symbolic 
instruction table. 

Registers Used 

None 

Value Returned 

None 
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TITLE: ADCON GENERATION MACRO (RCON) 

Purpose 

| The Adcon Generation macro generates ad cons required for the compiler. 

Call 

string- 1 RCON €Z , string- 2 

string-1: a set of characters which, when prefixed with d, forms 
the name of the adcon to be used for calling a routine. 

string-2: a set of characters which, when prefixed with $, forms 
the name of a routine's entry point. 

$Z: the concatenation parameter defined by the SYMDEF macro 
(described later in this subsection) . 

RCON is called by the SYMDEF macro. It generates adcons for compiler 
routine entry-points. Depending upon the circumstances, these adcons 
must be either relative to the base of phase 1, the base of phase 2, 
or, for use in DSECT's, should merely be DS reservations. 

If the SYMDEF symbol concatenation parameter (SZ) is not null and is 
not the letter W, the resulting code is for use in the Phase 1 
Initializer ($CCONT). RCON generates adcons relative to phase 1, in 
the form: 

A ( $entry-$CCONT) 

If the SYMDEF concatenation parameter is the character W, the resulting 
code is for use in the Phase 2 Initializer ($WCONT). RCON generates 
adcons relative to phase 2, in the form: 

A ( $entry-$WCONT) 

If neither of these conditions is true, the resulting code is for use 
in DSECT s s, and RCON generates a DS statement for a fullword instead 
of an adcon. 

Registers Used 

None 

Value Returned 

None 
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TITLE: RESOLVE FORWARD INTERNAL BRANCH TRIAD MACRO (RFIB) 

Purpose 

The Resolve Forward Internal Branch Triad macro creates a resolve 
forward internal branch triad. 

Call 

[symbol] RFIB pointer-name 

pointer- name: either the name of a fullword covered pointer or 
the location of a pointer, expressed as OCG-reg, 
P-reg) 

The contents of the pointer-name is placed in an RFIB triad. If the 
contents of the pointer is a triad pointer, then the last usage word 
of the indicated triad is changed to point to the RFIB triad. This 
macro calls the $GTRIAD routine to obtain the next available space 
in the triad table (see Section Z 9 Volume I). 

Registers Used 

G5, G6, G7, P5, CI* C2 

Value Returned 

None 
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TITLE: SKIP TOKEN MACRO (SKPTK) 



Purpose 



The Skip Token macro updates a pointer to the next token of the type 
specified (at the same parenthesis level) , or to the next semicolon, 
whichever occurs first. 



Call 



[symbol] SKPTK 

(register-name) 
pointer-name 



[, (code-name-1/ . . . ,code-name-n) ] 



register-name : 
pointer-name : 
code-name : 



any G-register except GO 

any covered, fullword pointer 

one of the following: 



AND 


EXP 


MIN 


ASGN 


GT 


MPY 


CNST 


GTE 


NE 


COL 


ID 


NULL 


COM 


KEY 


OR 


DELM 


LPR 


PLS 


DIV 


LT 


RPR 


EQ 


LTE 


SMC 



If the second operand is omitted r the macro searches for a semicolon. 
If only one code-name is specified, parentheses may be omitted from 
the second operand. 

Registers Used 

P5; if pointer-name is used, G7 

Value Returned 

Updated value in the first operand, pointing to a token which is either 
one of the types specified by the second operand (at the same 
parenthesis level) , or a semicolon. 
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TITLE: SYMBOL DEFINITION MACRO (SYMDEF) 
Purpose 

The Symbol Definition macro defines field and register names, user f s 
area, and compiler working storage and provides USING statements as 
appropriate* 

Call 

SYMDEF ( table-prefix- 1, . • * ,table-pref ix-n) , char- 1, char- 2 

table-prefix: A,B,C,D,H,I,J,L,M,N # 0,P,Q,R,S,T,V,X,Y,Z 

The presence of a given table-prefix in the first-operand list causes 
the inclusion of the symbol definitions for that table or list in the 
current assembly* 

char-1 : For the benefit of the Controller ($CNT), a non-null character 
other than w in the second operand causes the compiler's working storage 
(normally a DSECT) to be replicated as a CSECT (to facilitate 
initialization) with all symbols prefixed by the character given as 
the second operand. When char-1 is null, symbol definitions for 
compiler working storage are brought in as a DSECT, and USING statements 
are given for P2 covering W$STRT and PO covering W$STRT ♦ ^092. If 
char-1 is W, only those adcons required to support the second phase 
overlay portion of the compiler are assembled, relative to a base in 
the Phase 2 Initializer ($WCONT). (See Section 3, Volume I.) 

char- 2 : Any non-null value in the third operand causes the inclusion 
of the symbol definitions in the $$USER area and $$UTT area, and a 
USING statement for PI covering $$USERS. 

Registers Used 

None 

Value Returned 

None 
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TITLE: TALLY MACRO (TALLY) 
Purpose 

The Tally macro tallys a counter , increases by a given amount, and 
performs boundary alignment when requested. 



Call 



[symbol] TALLY counter- name 



[, 



' value 1 

(register-name-1) J ] [, < 
field-name ] 



[, 



(register-name- 3) 
pointer-name 



1 
2 
4 
8 
(register-name- 2) 



► ] 



counter- name : 
value: 

register-name-1 : 

field-name: 
register-name-2 : 



register-name- 3 : 



pointer- name : 



name of the counter (fullword) to be updated 

a self-defining-term representing the amount 
by which the counter is to be increased 

name of a G-register containing the amount by 
which the counter is to be increased (GO, G2 f 
G3, G4, G5, G6) 

name of a field (fullword) containing the amount 
by which the counter is to be increased • 

name of a register containing a value of 1, 
2, *\ 9 or 8. These values represent the alignment 
desired. The counter will be increased to the 
next multiple of the alignment code, if required, 
before the amount specified in the first operand 
is added (GO, G2, G3, G4, G5, G6) . 

any G-register except G7; G7 may be used if 
the second operand is omitted. The value of 
the counter after alignment but before the 
amount is added will be placed in the fourth 
operand. 

any fullword pointer. The value of the counter 
after alignment but before the amount is added 
will be placed in the fourth operand. 



If the second operand is omitted, the counter is aligned and updated 
but not increased. If the third operand is omitted , the counter is 
increased but not aligned. If the second and third operands are both 
omitted, the counter is placed without change in the fourth operand 
(which itself defaults under these conditions to G7) . 

Registers Used 

None 

Value Returned 

None 
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TITLE: ENTOKENING AND GENER INTERFACE MACRO (TGENER) 

Purpose 

The Entokening and GENER Interface macro provides an interface between 
the Entoken routine ($ATKN) and the GENER macro. 

Call 

tsymbolJ TGENER message~number,pointer # parameter-list 

The parameters are those required for the Error Interface macro 
(GENER). (See *Error Interface Macro (GENER) ", above,) 

During entokening* register G$ contains a pointer relative to a given 
token table segment. For the purposes of the GENER macro, this pointer 
must &e relative to the base of the user's data area. The TGENER macro 
adjusts register G<f as required* calls the GENER macro, and then 
restores register ^% to its original condition. 



None 

Value Returned 

None 
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APPENDIX D - RUNTIME SUPPORT MACROS 



All routines of the runtime support library conform to the standards 
described in the following paragraphs. 

GENERAL 

The CALL/360-OS PL/I compiler library was developed using the OS/360 
F-Compiler Library as a starting point (first version, Level-O). 
Changes were made to the OS/360 F-Compiler Library design to satisfy 
different requirements imposed by a different system (the time-sharing 
system) or when significant improvement in execution performance could 
be made. 

The time-sharing considerations evolved around the following: 

• Break-up of the F-level work spaces and code modules into two 
distinct parts: a) a relocatable part including only address 
information, and b) a non-relocatable part including the body of 
the code and all other data and information. 

• Reassignment of general fixed-point registers in harmony with the 
relocatable and non- relocatable classification of data. 

• Removal of V-type address references embedded in the code. 

• Removal of machine commands in which a general register is set 
by the command itself, that is, the Edit and Mark instruction, 
etc. 

• Elimination and/or insertion of additional code and data as 
required. 

• Alteration of calling sequences as required. 

• Conversion of F-level fixed-point logic to CALL/360-OS fixed-point 
specifications . 

• Renaming of global symbols. 

• Formatting of library modules to CALL/360-OS specifications. 

The modules that constitute the library provide two basic functions: 

!• Interface Services . These modules serve as an interface between 
compiled code and the facilities of the supervisor. They are 
described in Volume II under "Library Interface Services" in 
the section entitled "Runtime Support Summary". 

2. computational Services . These modules perform computational 
operations on data and shape it to the user*s requirements. 
They are described in Volume II under "Library Computational 
Services." 

The library is designed in a highly modular fashion. Modularity is 
in terms of functions which can be meaningfully separated and are 
contained within separate library modules. 
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NAMING CONVENTIONS 

Module (routine) names are composed of a unique combination of three 
characters that give a mnemonic identification of a module 8 s function. 
The module names are never employed within any system process? however , 
they are vital for documentation reference. 

Entry names are four characters in length, the first three being those 
of the module name, and the fourth identifying a specific entry point 
to the module. All linkages to a library module must reference a 
specific four-character entry-point name. 

For purposes of identification, library module and entry names begin 
with the letter- set prefix *IHE." 

Note : The CALL/360-OS PL/I library routines follow the naming 

conventions stated above and applied in this manual. However, 
there are some exceptions in the member names assigned to certain 
routines when stored in CALL/360 -OS PL/I system libraries. 
The member names are: 

IOB, IOD, IOP, IOX, and LDO (referred to in documentation as 
IHEIOB, IHEIOD, IHEIOP, IHEIOX, and IHELDO) . 

STORAGE REQUIREMENTS AND LIBRARY ADDRESS CONSTANTS 

Library routines require working storage, for the following reasons: 

1. During explicit communication between modules, the calling 
module must provide a non- relocatable storage area commonly 
called the static storage area (SSA) for the called module to 
use. 

2. Intermediate results must be stored. 

3« During implicit communication between modules, there must be 
a storage area containing common symbols. 

The library work space fulfills these functions. It is allocated by 
the compiler in the user's work area and subdivided into unique storage 
areas, each of which is pointed to by an address constant in a fixed 
location in the address constant area. 

The work space is divided into two major areas as follows: 

1. Relocatable working area (IWSP) (contains relocatable information 
that must be updated at every relocation of the program in core 
storage) 

2. Non-relocatable work area (LWS) (contains non-relocatable data) 

Each of the two major work areas is further allocated by the compiler 
in the user's work areas and subdivided into unique storage areas, 
each of which is pointed to by an address constant in a fixed location 
in the adcon area. Comparable subdivisions of the major areas are 
paired so that for a given activity both relocatable and non- relocatable 
space will be available for storing of addresses and other data. Non- 
relocatable subareas will be identified by four-letter codes and 
corresponding relocatable areas by the same four-letter codes with 
the letter "P* appended. 

The library communications area is one of the unique area pairs 
contained in the LWS~ 
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The library as a whole is highly structured. Each module in the library 
has an associated level number that strictly determines which unique 
pair of work spaces the module may use. 

Level numbers are assigned by the following rules: 

1. A module that calls no other module is assigned Level 0. 

2. A module that calls other modules is assigned a level number 
one greater than the maximum level number of all the modules 
it calls. 

3. A module that calls another module but does not expect a return 
is assigned the level number of the called module. 

There are five unique area pairs in the library work space (LW0/LW0P, 
LW1/LW1P, LW2/LW2P, LW3/LW3P, and IJI4/LW4P) which are used by library 
modules for an SSA and an intermediate storage area. Modules assigned 
Level Number may use only LWO and LWOP, modules assigned Level Number 
1 may use only LW1 and LW1P, etc. In this way, it is assured that 
a library module's SSA will not be destroyed during explicit 
communication , if the caller expects a return. 

Calling the execution error package (EXEP) is not considered sufficient 
to raise the level number of a library module, because EXEP has unique 
storage areas of its own (called LWE and LWEP) . 

Figure D-l specifies the address constants in the address constants 
area, which points to the base addresses of unique areas of the library 
work space, and the functions of those areas. 



Address Constant 


Function of Unique Area Pointed to 


IHEQLWS 
IHEQLWSP 

IHEQLCA 
IHEQLCAP 

IHEQLWE 
IHEQLWEP 

IHEQLSA 
IHEQLSAP 

IHEQLWO 
IHEQLWOP 

IHEQLWl 
IHEQLWIP 

IHEQLW2 
IHEQLW2P 

IHEQLW3 
IHEQLW3P 

IHEQLW4 
IHEQLW4P 


Pointer to major library work spaces 

Library communications areas (also known as library 
common areas) 

SSA and working storage for execution error package (EXEP) 
Reserved space not used at present 

SSA and working storage for Level Number library modules 
SSA and working storage for Level Number 1 library modules 
SSA and working storage for Level Number 2 library modules 
SSA and working storage for Level Number 3 library modules 
SSA and working storage for Level Number 4 library modules 



Figure D-l. CALL/360-OS PL/I Address Constants Area 
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(See "The Library Work Space* 9 below, for a complete description of 
the library work space-) 

DATA REPRESENTATION 

By virtue of declared attributes, data may exist in the following forms 
within a CALL/36 0-OS PL/I program: 

1. Arithmetic data 

a* Real fixed 

b. Real float 

c. Complex fixed 

d. Complex float 

2. Character-string data 

3. Statement-label data 

The following representations are available internally to the IBM System/ 360: 
!• Floating-point Clong and short) 

2. Binary fixed-point 

3. Packed decimal 

U. Character string 

The relationships between the forms declared for a data item in the 
CALL/360-OS PL/I program and the actual representation used internally 
to the IBM System/360 are shown in Figure D-2* 
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CALL/360-OS 

PL/I Compiler Forms 


IBM System/360 Forms 


Binary 

Fixed-Point 

(4 bytes) 


Packed 
Decimal 

(9 bytes- 
16 digits 

plus sign) 


Short Float- 
ing-Point 
(4 bytes) 


Long Float- 
inf-Point 
(8 bytes) 


Character 

String 

(Maximum 

256 bytes) 


CALL/360-OS 
PL/I Forms: 












Internal: 












Arithmetic: 












Fixed-Point 


X 










Floating-Point 






X 


X 




String: 












Character 










X 


External: 












Arithmetic: 












F-Format 










X 


E-Format 










X 


String: 












A-Format 










X 


Special Library Intermediate 
Forms: 












Binary Intermediate 








X 




Decimal Intermediate 




X 









Figure D-2. CALL/360-OS PL/I Data Representation 

Library support macros are concerned with the following functions: 

1. Exchange information between the phase 2 compilation wrap-up 
and runtime library modules • 

2. Facilitate loading of library working storage covers. 

3. Facilitate branching within the library. 

4. Define DSECT' s and constants universally applicable within the 
library. 

5. Ensure uniformity in the performance of certain special 
functions , that is, calculate the difference between two 
addresses, etc. 

(See "Library Support Macros", below, for complete description of all 
library support macros.) 

THE LIBRARY WORK SPACE 



RELOCATABLE WORK AREA (LWSP) 

The DSECT name is IHELIBP and is described by the following table. 
(The variable names are ordered within the DSECT as they appear in 
the table.) 
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DSECT 
Variable 
Name 



Hex 
Off- 
Set 



Area 
Size 
(Bytes) 



Explanation 



WBRl 



WBR2 



Second transfer vector- (Used by the 
arithmetic conversion package (ACP) . ) 



Third transfer vector. 
ACP,) 



(Used by the 



WRCD 



A (Target), A(Target DED) 
ACP.) 



(Used by the 



WFDT 



WFED 



WFCB 



WCNP 



WCN1 



10 



14 



18 



1C 



20 



A (Target FED). Implicit parameter for F- 
or E- format output conversion. (Set by 
F/E-f ormat and string directors for use 
by ACP.) 

A (Source FED). Implicit parameter for F- 
or E- format input conversion. (Set by 
F/E-f ormat and string directors for use 
by ACP.) 

A (File Control Block). (Used by 
C-f ormat 9 F/E-f ormat 9 and string 
input/output directors*) 

A (First and Last Address Pair). (Set by 
the I/O directors.) 

A (Start of Real Part of a C- Format Data 
Item) , A (End of Real Part of a C-Format 
Data Item) . (Used by the C-f ormat 
directors and the F/E-format input 
director . ) 



WCN2 



28 



WTEMP 


38 


8 


WJXIDVA 


40 


4 


WJXILADD 


44 


4 


ZLWEP 


48 


80 


ZLSAP 


98 


80 


ZLWOP 


E8 


sa 



ZLW1P 138 



ZLW2P 188 



80 



80 



A (Start of Imaginary Part of a Complex 
Data Item), A (End of Imaginary Part of a 
Complex Data Item) . (Used by the 
C-f ormat directors and F/E- format 
input director.) 

Erasable storage. Not used across calls. 

A (Array Dope Vector) . (Used by the 
interleaved array indexing routine.) 

A (Last Array Element Returned). (Used by 
the interleaved array indexing routine.) 

Relocatable work space for the execution 
error package. (Shared by the EXEP and 
the C-f ormat directors.) 

Level* 1 and level- 4^ routines scratch 
space. 

Temporary address storage for library 
level-O modules. 

Temporary address storage for library 
level-1 modules. 

Temporary address storage for library 
level-2 modules. 
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DSECT Hex Area 
Variable Off- Size 
Name Set (Bytes) 



Explanation 



ZLW3P 



1D8 



80 



Temporary address storage for library 
level- 3 modules. 



ZLW4P 228 80 Temporary address storage for library 

level- 4 modules.. 

ZCNTP 278 variable Relocatable work size. (Used by the 

compilation wrap-up modules of phase 
2 and the load module of the runtime 
library to reference the end of the 
relocatable library work space.) 



NON-RELOCATABLE WORK AREA (LWS) 

The DSECT name is 1HEZLIB and is described by the following table. (The 
variable names are ordered within the DSECT as they appear within the table.) 



DSECT 
Variable 
Name 



Hex 
Off- 
Set 



Area 
Size 
(Bytes) 



Explanation 



HINT 



WSCF 



WSDV 



WCFD 



10 



18 



WSWA 



1C 



Packed decimal intermediate (PDI) or 
floating-point intermediate (FLI) number 
storage. (Used by ACP.) 

Scale factor associated with the packed 
decimal intermediate number. (Used by 
the ACP.) 

String Dope Vector (SDV) . (Used by the 
input/output conversion directors.) 

Format Element Descriptor (FED) . (Used 
by eight 1-bit intermodular communication 
switches.) (Bit-7 is the complex switch 
set by the C-f orraat director to control 
processing of the complex components by 
the F/E- format directors. Bit- 5 is the 
update switch set by the string directors 
to control zeroing of and/or pointing to 
the various components of the complex 
item.) 

Eight 1-bit intermodular communication 
switches . 



WSWB 



wswc 



WBUFF 



ID 



IE 



IF 



1 
256 



WCOUNTI 120 



WLNEWDTH 124 



Eight 1-bit general purpose switches. 
(Used by I/O.) 

Eight 1-bit intramodular switches. Not 
used across calls. 

Intermediate character storage. (Used by 
the real output directors.) 

Print file current line character count. 
(Used by output directors.) 

Print file line width. (Used by output 
directors.) 
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DSECT 
Variable 
Name 



Hex 
Off- 
Set 



Area 
Size 
(Bytes) 



Explanation 



WTERBUFS 128 

WDISBUFS 12C 

WTOTCHAR 130 

WSPEC 134 

WCOUNTDK 138 

WTOTCHDK 13C 



ZLWE 

Zl^A 
ZLW0 

ZLW1 

ZLW2 

ZLW3 

ZLW4 

ZCNT 



140 



176 



1F0 


80 


240 


176 


2F0 


176 


3A0 


176 


450 


176 


500 


176 


5B0 


variable 



Terminal buffer size, (Used by I/O 
directors . ) 

Disk buffer size. (Used by I/O 
directors.) 

Current terminal buffer length. (Used by 
I/O directors.) 

Internal file current field counter. 

Disk file current line length. (Used by 
output directors.) 

Current disk buffer length. (Used by 
I/O directors.) 

Temporary non-address storage for the 
execution error package. 

Hot used. 

Temporary non-address storage for library 
level- modules. 

Temporary non- address storage for library 
level-1 modules. 

Temporary non-address storage for 
library level- 2 modules. 

Temporary non-address storage for 
library level-3 modules. 

Temporary non-address storage for 
library level- 4 modules. 

Non-relocatable work space size. (Used 
by the load modules.) 



REGISTERS AND OFFSETS 

Assignments are defined in the following chart. 

Save Registers 
Offset Mnemonic Value Use Definitions 



OFPO 


PO 


6 


OFP1 


PI 


7 


OFP2 


P2 


8 


OFP3 


P3 


* 


OFP4 


P4 


10) 


OFP5 


P5 


11 


OFP6 


P6 


12 J 


OFP7 


P7 


13 


OFP8 


P8 


14 


OFP9 


P9 


15 



Cover first page of object code 
INot specifically assigned) 
(Not specifically assigned) J 
Cover address constants 

(Not specifically assigned) 

Parameter register 
Return register 
Branch^ register 
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Fixed Data Registers 

OFGO GO 

OFG1 Gl 1 

OFG2 G2 2 

OFG3 G3 3 ( (Not specifically assigned) 

OFG4 G4 4 

OFG5 G5 5 

Floating-Point: Data Registers 



OFF1 Fl 

OFF2 F2 2 

OFF3 F3 «* 

OFF4 F«t 6 



(Not specifically assigned) 



Register P3 roust contain cover address constants as indicated at all 
times. Register P6 is used to load covers required for saving register 
constants at entry to any library routine; hence , its value is destroyed 
- not preserved over a call. All other address and data registers 
are preserved over a library call. Floating-point registers are not 
saved over a library call. 

LIBRARY SUPPORT MACROS 

The library support macros were created solely for the CALL/3 60-OS 
PL/I iroplementers; the CALL/360-OS PL/I user will never come in contact 
with them. 

The descriptions given below tell how to use each macro. They do not 
tell how each macro performs its functions. The macros are described 
in alphabetic order # according to their mnemonics. The following rules 
explain the notation that is used. 

1. Uppercase letters represent 

a. entries that must appear exactly as shown (for example 9 
CALLERR or IHEBRA) . 

b. a general class of entries from which a particular entry 
must be selected by the user as explained in text which 
follows the notation. (For example, the parameter OFF shows 
the place where the offset to the relocatable LWS must be 
specified in the CALL/360-OS macro call.) 

c. a combination of a and b, where the portion preceding an 
equal sign is a keyword that must appear as shown and the 
portion following the equal sign represents a general class 
of entries from which the user must select a specific entry. 
(For example, in BR=P9, BR is a keyword parameter and must 
appear as shown; P9 represents a working register that must 
be specified. ) 

2. Braces { > are used to denote grouping. A vertical stacking 
of possible entries indicates that a choice is to be made by 
the user. 

3. Square brackets C ] denote options. Any entries enclosed in 
brackets may be omitted. 
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TITLES CALL ERROR MACRO CCALLERR) 

Purpose 

The Call Error macro develops a call to the execution error package 
CEXEP) which results in printing an error message and appropriate 
transfer of control* The user specifies the general data register 
to be loaded with the error code prior to execution of the Call macro 
CIBECAL) transferring control to BXEP* 

Call 

f label] CALLERR SEG^ INDEX # OFFSET^ 0FFSET1 

The general data register specified by parameter REG is loaded with 
the error code set forth la parameter JUDEX* The two parameters OFFSET 
and 0FFSET1 serve the same function as the parameters defined for the 
Call macro. In fact, the Call macro is Invoked by the Call Error 

macro. 

Registers Used 

One specified general data register 

Pseudo registers P3, P6 # P8 r and P9* as follows: 

P3 Adcon error register 

P6 Scratch register restored from adcon area 

P8 Link register restored from adcon area 

P9 Branch register restored from adcon area 
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TITLE: CALL/360-OS MACRO (CALRTS) 

Purpose 

The CALL/360-OS macro calls the CALL/36 O^OS system to request execution 
of an SVC. 

Call 

[label] CALRTS SVCl,OFF,OFFl 

Parameter SVC1 passes the value of the SVC call. 

Parameter OFF is the offset to the relocatable LWS f 

Parameter 0FF1 is the offset to the non-relocatable LWS. 
This macro generates a call to the IHESVC routine. 
The macro statement may be labeled. 
Registers Used 
None 
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TITLE: CHECK FCB MACRO (CKFCB) 

Purpose 

The Check FCB macro tests the FCB. If a disk file f a check for empty 
buffer is made. If empty , an SVC 2 is issued to read a record from 
disk. The receiving buffer displacement is in register 2 (displacement 
from communications area to the buffer area) . Upon return, byte 13 
of the file control interface block (FCIB) will be set with a code 
as follows: 

= Read successful 

1 = Unrecoverable I/O error 

2 = End of data 

3 = Read not done because file type is output 

This macro updates buffer pointers and returns. 

If a terminal file, a question mark is inserted in the output stream 
aid the buffer pointer in the communications area is updated. Then 
an ^iC 2 is requested for input from the terminal unit. 

Call 

CKFCB (This macro invokes the CM&/360-OS macro (CALRTS) . } 
Registers Used 
Preset registers: 

Pseudo registers P3, P6* P7, and P9 

Non-preset registers: 

Pseudo registers: P2, P4, and Gl 
Absolute general registers: 2,3 
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TITLE: ADDRESS CONSTANTS MACRO (I HE ADC) 

Purpose 

The Address Constants macro defines the displacement for each symbol 
appearing in the address constant area (ADCON) beginning with the 
alphameric characters "La". This macro is invoked by the Symbol macro 
(IHESYM), which defines all of the runtime entry names for which space 
is to be reserved in ADCON and for which a corresponding "La" symbol 
is associated. 

Call 

IHEADC LIB1 , LIB2 , LIB3 , LIB** , LIBB1, LIBB2 

Each parameter field contains one or more subfields, each of which 
contains an entry- point name. The first three fields are reserved 
for entry points to modules that are accessible directly through a 
single reference to ADCON. The last two fields are reserved for entry 
points to modules requiring an indirect access through an appropriate 
block adcon area. The ordering of the symbols within the subfields 
is critical to modules that perform compilation wrap-up and load 
functions. 

Registers Used 

None 
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TITLE: BRANCH MACRO (IHEBRA) 

Purpose 

The Branch macro saves the contents of a specified general register 
over a generated Branch and Link instruction and/or assembles the 
branch instruction using designated registers for branching and linking. 

Call 

[label] IHEBRA LXR,BXR,LOC f P6=P6 

Parameters LXR and BXR are two general address registers designated 
as link and branch registers, respectively. Keyword parameter P6 
designates a general address register whose contents are to be saved 
over the branch. Parameter LOC specifies a storage word for saving 
register content. Hie default values are: 

LXR=P8 
BXR=P9 
P6 =P6 

Parameter LOC in default results in generation of the Brancb and Link 
instruction only. Caution should be exercised when placing OSING , 
statements immediately behind Branch macro statements. 

The macro statement may be labeled. 

Registers Used 

Two or three user-designated general address registers 
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TITLE: BAA EXTERN MACRO (IHEBXT) 

Purpose 

The BAA Extern macro loads a specified general address register with 
the address of an entry point for a module requiring access to a 
special-function block address constant area. 

Call 

[label] IHEBXT DISP,REG,BR=P9,P3=P3,LOC=#2 

The first field value must be the relative entry number of the desired 
entry-point symbol in the external symbol table of the Trailer macro 
(IHETLR) for the module in which the BAA Extern macro is embedded. 
The second field is a general data register assigned as a working 
register. Both fields must be present. Keyword parameter BR specifies 
a working register 9 while keyword parameter P3 specifies a general 
address register containing the cover for ADCON. Keyword parameter 
L0C points to the beginning of the external symbol table generated 
by the Trailer macro. Default values are: 

BR =P9 
P3 =P3 

L0C=#2 (Default value for keyword parameter NAM2 of the Trailer 
macro) 



The macro statement may be labeled. 

Registers Used 

Two specified general address registers 
One specified general data register 
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TITLE: CALL MACRO (IHECAL) 

Purpose 

The Call macro assembles instructions required to save pseudo register 
P8 over the branch; loads pseudo register P9 with the branching address; 
and restores pseudo registers P9 and P6 from specified addresses covered 
by pseudo register P3 (the covering register in the adcon area) • 

Call 

[label] IHECAL VADD, OFFSET , OFFSET 1 

All three parameter fields are displacements with respect to the adcon 
area cover and must contain valid information prior to execution of 
the macro. 

The macro statement may be labeled • 

Registers Used 

Pseudo registers P3 # P6, P8, and P9 # as follows: 

P3 Adcon cover register 

P6 Scratch register restored from adcon area 

P8 Link register restored from adcon area 

P9 Branch register restored from adcon area 
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TITLE: DOUBLE COVER MACRO (IHEDCV) 

Purpose 

The Double Cover macro loads two adjacent general address registers 
with the covers for the library non-relocatable and relocatable work 
spaces, respectively • 

Call 

[label] IHEDCV FIELD, REG 

Parameter FIELD specifies the library level of the module Cthat is # 
LWE, LWS, LWO, LW1, LW2, LW3, or LW) • Parameter REG designates the 
register to contain the library non- relocatable work space cover. 
The next higher-numbered register will contain the cover for the library 
relocatable work space. 

The macro statement may be labeled. 

Registers Used 

Two designated general address registers 
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TITLE: DIFFERENCE MACRO (IHEDIF) 

Purpose 

The Difference macro calculates the difference between the contents 
of two specified address registers 9 and stores the result into a 
designated target. 

Call 

[label] IHEDIF Rl,R2,!TOl # l!iR2,AREA=WTEMP 

Parameters Rl and R2 are two general address registers containing the 
address for which the difference C(Rl)-C(R2) is desired* (C(R1) denotes 
contents of Rl* etc) NR1 and NR2 are two general data registers 
assigned as working registers. The keyword parameter AREA points to 
a two-word block of temporary storage. Parameters Rl and NR1 must 
be specified. Default values for the other parameters are: 

R2 =R1+1 

NR2 =NR1+1 

AREA=WTEMP (Doubleword erasable storage in LCA) 

The macro statement may be labeled. 

Registers Used 

Two user-specified general address registers 
Two user-specified general data registers 
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TITLE: ERRCD MACRO (IHEERRCD) 

Purpose 

The ERRCD macro has two functions: 

1. Set the error code in LWE. 

2. Set the error code in LWE, then branch to Error Routine 
(IHEERR). (See Section 5, Volume II.) 

Call 

[label] IHEERRCD INDEX, PREG,ROUTNAM,FCIB 

The first parameter provides the index of the error code. The second 
parameter provides an address register which is used to cover LWE. 
The third parameter is the last four characters of the desired entry 
point name of IHEERR. The fourth parameter is the register containing 
the FCB. It is changed to point to the FCIB for IHEERRB. 

The macro statement may be labeled. 

Registers Used 

One user-designated general address register 

P3 Adcon cover register 
P8 Link register 
P9 Branch register 
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TITLE: INITIALIZE FILE CONTROL BLOCK MACRO (IHEFCB) 

Purpose 

The Initialize File Control Block macro changes P7 f rom address of FCIB 
to address of FCB # and moves buffer pointers from saved FCB to common 
FCB. 

Call 

[label! IHEFCB 

Registers Used 

G5 Address ©f FCB offset 

F7 Address of FCIB to address of common FCB 

F8 Address of saved FCB 

W* Hork 
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TITLE: SAVE FCB POINTERS MACRO (IHEFCIB) 

Purpose 

The Save FCB Pointers macro has two purposes: 

1. Saves the disk buffer pointers from common FCB area. 

2. Saves area for FCB if routine called from compiled code. 
Call 

t label] IHEFCIB OFFSET1 

OFFSET1 is the relocatable library work space level used by this 
routine. 

Registers Used 

P3 Adcon cover register 

P8 Link address 

P7 FCIB address 

P5 Work 

P6 Work 
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TITLES LINK ROUTINE MACRO (IHEFROM) 

Purpose 

The Link Routine macro determines whether a call to a library routine 
is from compiled code or from another library routine. 

Call 

[label! IHEFROM EXIT 

EXIT is the exit address if call is from another library routine. 

Registers Used 

P3 Adcon cover register 
P8 Link register 
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TITLE: EXTERNAL MACRO (IHEEXT) 

Purpose 

The External macro loads a designated general address register with 
the address of an entry point through a single reference to the adcon 
area. 

Call 

[label] IHEEXT DISP,REGP,REGB 

The first field must be the character following the "L9" alphamerics 
of an "La" symbol defined in the adcon area. The second field is the 
general address register to be loaded, and the third parameter is the 
general address register containing the adcon cover. Default values 
are: 

REGP=P9 
REGB=P3 

The macro statement may be labeled. 

Registers Used 

Two designated general address registers 
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TITLE: HEADER MACRO CIHEHDR) 

Purpose 

The Header macro supplies the wrap-up loader with the following 
information: 

1. The size Cin bytes) of the module 

2. The number of external references by the module 

3. The number of entry points 
Call 

[ label] IHEHDR NAM1=#1 9 NAM2=#2 ,NAM3=#3 , NAM«*=#«* 

The keyword parameter NAM1 is a symbol defined by the Header macro 9 
whereas keyword parameters NAM2, NAM3, and NAM4 are symbols defined 
in the Trailer macro (IHETLR) separating the code section, the external 
reference section 9 and the entry-point section- These keyword 
parameters must agree exactly in value with corresponding keyword 
parameters of the Trailer macro. The default values are: 

NAM1=#1 
NAM2=#2 
NAM3=#3 
NAM4=#4 

The formulas are: 

Module size = NAM2-NAM1-4 (in bytes) 

Number of external references = (NAM3-NAM2)/2 

Number of entry points = (NAM4-NAM3)/4 

The macro statement may be labeled. 

Registers Used 

None 
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TITLE: I/O INTERFACE MACRO (IHEIOD) 



Purpose 



The I/O Interface macro provides an interface between the I/O conversion 
directors and the input routine IHEIOG and output routine IHEIOD. 

The former interface loads a designated general data register with 
the length-1 of the string to be input and a general address register 
with the A(FCB)j then it branches to the input routine IHEIOG, after 
which 9 and upon return, an appropriate string dope vector is constructed. 

The latter interface loads two general address registers with the 
A(FCB) and A(SDV), respectively. Branching to the output routine 
IHEIOD then proceeds as described above for input. 

Call 



[label] IHEIOD 



FCB=WFCB e SDV=WSDV, LWSP=LWEP , OP=IN, 
P9=P9 9 P8=P8 , P5=P5, P0=P0 , G1=G1 , GO=GO , 
PTEMP=WTEMP # P7=P7 



The macro invokes the IHEEXT, IHEBRA, and IHEDIF macros. Keyword 
pointer parameters point as follows: 



FCB points to A(FCB) 

SDV points to A(SDV) 

LWSP points to A (library relocatable work subarea) 

PTEMP points to A(doubleword erasable area) 

Keyword parameter switch OP functions as follows: 

OP = IN defines an input file 
OP * IN defines an output file 

Keyword parameter register assignments are: 

P8 assigned as linkage register 

P9 assigned as branch register 

P7 assigned as parameter register for A (FCB) 

P5 assigned as parameter register for A (SDV) 

PO preset to A (first page of 

object code cover) 
Gl assigned as parameter register ) 

for string length-1 and scratch ) 
GO scratch ) 



general addr registers 



general data registers 



The default values are set as follows: 



FCB 


=WFCB 


SDV 


=WSDV 


LWSP 


=LWEP 


PTEMP 


=WTEMP 


P8 


=P8 


P9 


=P9 


P5 


=P5 


Gl 


=G1 


GO 


=G0 


P7 


=P7 



Pointer in LCAP 

Pointer in LCA 

Library work area assigned to EXEP 

Scratch area in LCAP 

Return pointer 

Transfer pointer 



The macro statement may be labeled. 

Registers Used 

Five user-designated general address registers 

Two user-designated general data registers 



127 



TITLE: STANDARD OFFSETS MACRO (IHELBE) 

Purpose 

The Standard Offsets macro equates standard adcon area, relocatable 
library work space, and non- relocatable library work space offsets 
to symbols. It also is used to redefine "La" symbols to "V type 
symbols. 

Call 

IHELBE 

Registers Used 

None 
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TITLE: LIBRARY MACRO (IHELIB) 

Purpose 

The Library macro provides the definitions for the symbols and DSECT f s 
required by a majority of the library routines. The list includes 
those symbols associated with pseudo registers, standard save-area 
offsets, and "La* symbols necessary to program execution, together 
with the DSECT's which may contain them, and the error codes • 

Call 

IHELIB 

The Library macro invokes the Symbol macro (IHESYM) to define the "LS" 
symbols (which in turn invokes the IHEADC macro) and the Library Work 
Space macro (IHELWS) to define library work area DSECT's, pseudo 
registers, and error codes • 

Registers Used 

None 
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TITLE: LIBRARY WORK SPACE MACRO (IHELWS) 

Purpose 

The Library Work Space macro defines the library work space DSECT's 
and associated symbols. 

Call 

IHELWS 

The macro is invoked by the Library macro (IHELIB). 

Registers Used 

None 
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TITLE: MOPP MACRO (IHEMOPP) 

Purpose 

The MOPP macro defines the DSECT's describing the block adcon area 
(BAA) and dynamic storage area (DSA) . 

Call 

IHEMOPP 

Registers Used 

None 
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TITLE: NAME MACRO (IHENAME) 

Purpose 

The Name macro generates 80 bytes for absolute patching of compiled 
code and places the literal constants generated-to-date immediately 
ahead of the patch area. The patch area is word-aligned and filled 
with zeros. 

Call 

IHENAME 

See also the Patch macro (IHEPCH) . 

Registers Used 

None 
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TITLE: OPEN TEST MACRO (IHEOPENT) 

Purpose 

The Open Test macro tests file openings to determine whether they are 
successful • If not, it determines why a file was not opened and gives 
an appropriate error message. 

Call 

t label] IHEOPENT 
Registers Used 

P7 Address of PCIB 
Errors Detected 

NOT OPENED (124) 

DOES NOT EXIST (126) 

LOCKED (127) 

IN USE (128) 

NOT A DATA FILE (130) 
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TITLE: PATCH MACRO (IHEPCH) 

Purpose 

The Patch macro generates space for absolute patching of modules* 
The space generated is set to character pattern DEAD. 

call 

tlabell IHEPCH 

Registers Used 
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TITLE: RETURN MACRO (IHERET) 

Purpose 

The Return macro restores the general registers (except symbolic 
register P6 which is destroyed in the restoring process) and floating- 
point symbolic registers F3 and F4 from a designated standard save 
area. 

Call 

[label] IHERET OFFSETl 9 0FFSET2 

The two parameter fields are offsets relative to the adcon cover 
pointing to library work space addresses. 

The macro statement may be labeled. 

Registers Used 

Symbolic registers P3 r P8 # and P9 f as follows: 

P3 Adcon cover register 
P8 Return linkage register 
P9 Scratch register 
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TITLES RESTORE MACRO tlHERST) 

Purpose 

The Restore macro restores all general registers to the values contained 
in a designated save area according to the standard save- area offsets. 
(It is assumed that the designated area was preset by the prior 
execution of a Save macro.) The floating-point registers are not 
restored. 

General registers PO through P9 are restored from the relocatable 
standard save area, while general data registers GO through G5 are 
restored from the associated non- relocatable counterpart. 

Call 

[label] IHERST FIELD,REG 

The FIELD parameter value must be the last three alphamerics of a 
library non- relocatable work subarea. The REG parameter value is a 
general address register. 

The macro statement may be labeled. 

Registers Used 

One user-designated general address register 
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TITLES SAVE MACRO (IHESAV) 

Purpose 

The Save macro stores all general registers (except a designated general 
address register which is destroyed in the saving process) into a 
specified standard save area. The save area specified is normally 
one of the library work subareas. The general data registers are saved 
in the non-relocatable part of the work space # and the general address 
registers in the corresponding relocatable part. The floating-point 
registers are not saved. 

Call 

(label] IHESAV FIELD,REG 

The FIELD parameter is a non-relocatable part of a library work space 
(that is, LWO r LW1, etc.), and the REG parameter is a general address 
register. Generally pseudo register P6 is selected. 

The macro statement may be labeled. 

Registers Used 

One designated general address register 
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TITLE: SINGLE COVER MACRO (IHESCV) 

Purpose 

The Single Cover macro loads a designated general address register 
with the cover address of a specified library work space. Appropriate 
USING statements are generated flagging the designated register as 
a cover register to the compiler. 

Call 

[label] IHESCV FIELD # REG 

Parameter FIELD specifies the library level of the module Cthat is, 
LWE, LWS* LWO, LW1, LW2, LW3 # or LW4) . Parameter REG designates the 
register to contain the library non- relocatable work space cover. 

The macro statement may be labeled. 

Registers Used 

One user-designated general address register 
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TITLE: SDR MACRO (IHESDR) 

Purpose 

The SDR macro saves the contents of general registers (except symbolic 
register P6 which is destroyed in the saving process) and the two 
floating-point symbolic registers, F3 and F4. 

Call 

tlabell IHESDR Dl,D2 

Parameter Dl is a displacement in the adcon area pointing to the desired 
relocatable LWS. Parameter D2 is a similar displacement pointing to 
the desired non- relocatable LWS. (See "Save Macro (IHESAV)*.) 

The macro statement may be labeled. 

Registers Used 

Pseudo registers P3 and P6 # as follows: 

P3 is preset to A (adcon area) 
P6 is a scratch register 
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TITLE: SYMBOL MACRO ClHESYMl 
Purpose 

The Symbol macro provides the Address Constants macro (IBEADC) with 
a list of entry-point names for which the Address Constants macro is 
to reserve space in the adcon area and label said space by concatenating 
the alphameric symbols "La" to the left of entry name. 

Call 

MACRO 
IHESYM 

* INDIRECT ADCON ADDRESSING MACRO 

* CALLS ADCON MAP MACRO IHEADCN 

IHEADC CDD JA, DDOA # DDOB w DDOC , DDPD 9 IOAA* IOAT , IOBA , IOBC , * 

IODP r IOGA,IOXA F IOXB ff IOXC r IJ>IB,LDIC,LDOB r LDOC r DUMP f ERRA, * 
ERRB,ERRC # ERNA # SADA,SADB f SADC,SADD # SAFC,DCNA,DIAA,DIAB, * 
DIAZ,DIAY # DIBA # DIBZ„DIMA f DIMZ r DMAA r DNCA,VPFA r IOPB, * 

ADMP) , * 

(DOAA,DOAB # DOAZ r DOAY,DOMA f DOMZ r DOBA,DOBB,DOBZ # DOBY, * 

UPAA^UPAB r VCAA f VCSA <r VCSB r VFAA # VFBA # VFCA,VFDA # VFEA # VPAA r * 
WBA F VPCA,VPEA,VTBA,ABTO,ABMO,ABGO,DZTO r DZMO,DZGO f MXSO, * 
MXLO,MXFO,MNSO,MNLO,MNFO,XISI,XILI,XIFI) , * 

(XITI,XIMI r XIGI,XISF r XILF,MZGO*XITF,XIMF # MZTO*MZMO, * 

PDSOfPDJ^PDFOjPDTOjPDMO^PDGOrSMSOfSMLO^SMFO^SMTOfSMMO, * 
3MG0,YGSS ff YGLS # YGFS„YGTS,YGMS,YGGS,YGSV„YGLV,YGFV,YGTV, * 
YGMV # YGGV y JXIY # JXIA ff CSCO,CSMF # CSS2,DIOA,VSCA*ERRR,GPUT # * 
VPDA^SVCA^DDIB^ERRZ^SADE^RSED^ PTR219 * 

COPEN^CLOS^ONON^REVT^ERRN^ENDF), PTR219 * 

CATSl^ATLl^ATTO^ATMO r ATS2 r ATL2 r AHSO r AHL0 4r AHTO # AHMO # * 
EFSO^EFLO ff EXSO # EXLO^EXTO # EXMO ff LNSO r LNLO^LNTO^LNMO f L2SO <r * 
L2L0 r LGS0^LGL0 # SNS0^SNL0 # SNT0 r SNM0^CSS0 9 CSL0 r CST0 # CSM0 # * 
SQSO # SQLO ff SQTO,SQMO) y CTNSO/TNLO r TNTO r TNMO*TBSO,THLO* * 
THTO,TBMO,CHSO,CBLO # CBTO,CHMO,SESO,SHLO,SBTO,SBMO) * 
MEND 

The six parameter fields contain the last four characters of all of 
the entry-point names to the runtime library. The first four fields 
contain those entry points associated with modules accessible through 
a single access via the generated points associated with modules 
accessible through a single access via the generated m I*M m symbol. 
The last two fields contain the entry points associated with modules 
accessible through a second access to the block adcon area assigned 
for the function performed by the module. 

Caution : The ordering of the above entry-point names is critical 
with respect to compilation wrap-up and load operations. 
Names in second, third, and fourth fields may be pushed 
up into the next previous fields but the overall ordering 
of names must not be altered. Each field can contain a 
maximum of fifty-two entry names. The macro is invoked 
by the Library macro (IHELIB) • 

Registers Dsed 

None 
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TITLE: TRAILER MACRO (IHETLR) 

Purpose 

The Trailer macro supplies the wrap-up loader with the following 
informations 

1* Defines three symbols which divide the module into three parts: 
the body of code, the external reference section, and the entry- 
point section, such that the data required in the Header macro 
(IHEHDR) can be calculated. (See "Runtime Routine Structure" 
in Appendix A,) 

2. Generates a pointer in the external reference table which 
identifies the external reference and provides a linkage if 
the external reference points to an entry point associated with 
one of the special functions requiring access to the block adcon 
area for the functions (to access the entry-point address). 

3. Generates a displacement in the entry point table which 
identifies the entry point, and a displacement within the code 
body from which the address of the entry point can be determined. 

Call 

(label! IHETLR EXTRN, ENTRY, NAM1=#1 ,NAM2=#2 ,NAM3=#3 , 
NAM<*=#4 , FMT=OBH 

The parameter EXTRN contains one subfield per external symbol referenced 
by the module. Similarly, the ENTRY parameter contains a subfield 
for each entry point defined in the module. The keyword parameter 
FMT identifies the form of the subfield entries. IF FMT=OBH, the 
subfield values are the last four characters of the library external 
or entry- point name. A slot has been provided for other subfield 
formats as may be required. At present, FMT^OBH results in the output 
of a message. 

The keyword parameters NAM1, NAM2, NAM3, and NAM 4 are as described 
for the Header macro and must be identical to respective field 
definitions for the Header macro. 

Default parameter values are: 

NAM1=#1 
NAM2=#2 
NAM3=#3 
NAM4=#4 
FMT =OBH 

Registers Used 

None 
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TITLES ZAP MACRO (I HE ZAP) 

Purpose 

The Zap macro defines symbols and DSECT f s covering FCB«s, symbol tables, 
DED f s # the communications area, and user -terminal tables*. 

Call 

IHEZAP 

The macro is invoiced by the Library Definition macro CLIBDEF) . 

Registers Used 

None 
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TITLE: LIBRARY DEFINITION MACRO (LIBDEF) 

Purpose 

The Library Definition macro provides all the symbol and DSECT 
definitions as described for the Library macro plus other symbols and 
DSECT • s of special interest to the library interface modules. Among 
these are: 

1. Redefinitions of standard adcon-area offsets 

2. Redefinitions of standard save-area offsets 

3. Redefinitions of V/type symbols 

4. Definition of DSECT' s covering FCB's 

5. Definition of DSECT* s covering DED's 

6. Definition of DSECT "s covering symbol tables 

7. Definition of DSECT* s covering communications areas 
8* Definition of DSECT *s covering user terminal tables 

Call 

LIBDEF 

The macro invokes the following macros: 

Library macro (IHELIB) 
Standard Offsets macro (IHELBE) 
Zap macro (IHEZAP) 

Registers Used 

No registers are used directly by LIBDEF. Its relationships to called 
routines and required values are shown in Figure D-3. 
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LIBDEF 



•IHELIB 



•IHESYM 



Library Entry Points 



IHEADC 



n 



Adcon Area Definitions 



-Standard Save Area Offsets 
-General Register Assignment 
-Error Codes 



-IHELBE 



—Standard Adcon Area Offsets 
—Offsets for Relocatable Registers in LWS 
-Offsets for Non-Relocatable Registers in LWS 
MRedefine V/Type Symbols to L@ Symbols 



-IHEZAP 



— FCBDEF DSECT 
— FCIBDEF DSECT 
— SYMTABLE DSECT 
-DED DSECT 
-COMMUN DSECT 
I — UTT DSECT 



Figure EH 3. LIBDEF Calls 
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TITLE: READ DISK MACRO (READDISK) 

Purpose 

The Read Disk macro reads a record from disk* 

Call 

READDISK OFFl,OFF2 

Parameters OFF1 and OFF2 are offsets to the LWS and LWSP area pointing 
to the non- relocatable and relocatable standard save areas, 
respectively • The macro invokes the CALL/360-OS macro (CALRTS) and 
the ERRCD macro (IHERRCD). 

Registers Used 

Preset pseudo registers: 

P3 Adcon cover register 
P6 LWS cover register 

Scratch pseudo registers: 

G2-G5 inclusive 
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TITLE; READ TERM MACRO (READTERM) 

Purpose 

The Read Term macro reads a new line from a terminal unit. 

Call 

[label] READTERM 

This macro invokes the CALL/360-OS macro (CALRTS) . Prior to invoking 
the CALL/3 60-OS macro, a question-mark character is placed in the 
buffer with all buffer controls updated accordingly. 

The macro statement may be labeled. 

Registers Used 

Preset pseudo registers: 

P3 Adcon cover register 

P2 A (terminal output control block) 

P8 Local cover macro 
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TITLE: UNIFORM INTERFACE FOR SVC MACRO (RTSSVC) 

Purpose 

The Uniform Interface for SVC macro provides a uniform interface for 
SVC invocation from object program routines, regardless of operating 
environment. 

Call 

[symbol] SVC svc-code- number 

svc-code- number : the operand number of the desired SVC 

The macro generates a call upon an SVC interpreter subroutine. In 
a simulated environment, the SVC is also simulated. In the real 
environment, a live SVC is issued. By using an interface, the necessity 
for having two versions of object-program library routines is avoided. 

Registers Used 

None 
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TITLE; SET DISK MACRO (SETDISK) 

Purpose 

The Set Disk macro sets the first eight bytes of the input disk buffer 
according to information contained in the FCB. If the file is an 
external disk file, character line counter (WCOUNT1) and total buffer 
character counter (WTOTCHAR) are reinitialized. A code flag (X'CO') 
is set in the buffer area. 

If the file is an internal disk file, the code flag (X'^O*) is set 
in the buffer area and the FCB is updated. 

Call 

SETDISK 
Registers Used 
Preset pseudo register: 

P3 Adcon cover register 

Symbolic registers: 

ADLCA Local cover register 
ZERO General data register 
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TITLE: SET ERROR CODE MACRO (SETERRCD) 

Purpose 

The Set Error Code macro sets the error code in the library 
communications area. 

Call 

SETERRCD INDEX ,PREG 

Parameter INDEX supplies the last two characters of the error code, 
and parameter PREG is a scratch general address which can be used by 
the macro. 

Registers Used 

Preset pseudo register P3 as adcon cover register 

Symbolic general data register ZERO 

A user-designated general address register 
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TITLE: SET FILE CONTROLS MACRO (SETFLCA) 

Purpose 

The Set File Controls macro loads two symbolic general data registers 
(COUNTl # LNEWDTH) with the current line character count and line width, 
respectively . 

Call 

SETFLCA 
Registers Used 
Preset pseudo register: 

P3 Adcon cover register 
Non- preset: 

Pseudo register P4 as local cover register 

Symbolic general data registers: 

COUNT1 Current line character counter 
LNEWDTH Line width 
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TITLE: SET DOPE VECTOR MACRO (SETSDV) 

Purpose 

The Set Dope Vector macro sets the stream dope vector • 

Call 

[ label ] SETSDV REG1 , Gl , G2 , OFFSETL , OFFSET2 , COUNT1 

Parameter register REG1 supplies the starting address of the sources. 
Parameter registers Gl and G2 are general-data scratch registers. 
Parameters OFFSET1 and OFFSET2 supply the offsets in the LWS and LWSP, 
respectively, pointing to the non-relocatable and relocatable work 
areas, respectively. Parameter register C0UNT1 supplies the source 
stream length. 

The macro statement may be labeled. 

Registers Used 

Preset pseudo registers: 

PO Adcon cover register 
P6 LWS cover register 
P9 LWSP cover register 

Symbolic general data register COUNT1 

One user-designated general address register 
Two user-designated general data registers 
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APPENDIX E - OBJECT CODE STORAGE LAYOUT 



This appendix describes the layout of a CALL/360-OS PL/I object program. 
Each object program consists of distinct sections. These sections, 
in the order they appear in computer storage, are: 

1. Communications area 

2. Terminal I/O buffer 

3. Object program 

*». Line number table 

5. Static and constants storage 

6. Address constant area 

7. CALL/360-OS PL/I library 

8. Static array and string storage 

9. Disk I/O buffers 

10, Dynamic storage 

Since the sizes of some sections are not determinable until after 
compilation has been completed, each section must be addressed 
separately by different base address constants. The addresses of 
sections 3, 5, and 6 are always contained in fixed general purpose 
registers except during execution of a routine from the library. The 
addresses of all areas are contained in fixed locations in the address 
constant (adcon) area. 

The communications area, terminal I/O buffer, and disk I/O buffers 
are discussed in Appendix F. All other sections are discussed below. 

OBJECT CODE 

The object code consists of the machine instructions constituting the 
compiled program, symbol tables for data I/O, and the object code 
address vs. line number table for runtime diagnostics. 

SYMBOL TABLE 

Each symbol table consists of entries for each variable to be written 
or that can be read in an I/O operation* On input, one table contains 
entries for all identifiers that can be read. An output operation 
may use more than one symbol table. Each symbol entry in the symbol 
table is five words long (fullword-aligned) and contains: 

1. The name of the identifier. 

2. The DED for the identifier. 

3. The number of subscripts. 

4. How to locate the identifier , if a scalar, or its dope vector, 
if an array or a string. 
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The identifier or its dope vector is obtained by using two offsets. 
The first offset (K8STO!) indicates the displacement within the adcon 
area to the base address. The second offset (KaST02) is the 
displacement from the base address to the identifier or the dope vector. 
Figure E-l shows the format of a symbol table entry. 

12 3 4 Byte 



Word 1 



Name 
(in EBCDIC) 
K3STNM 



DED 
K3STDD 



| Number of 
| Subscripts 
| K8STSB 



Offset (1) 
KaSTOl 



Offset (2) 
KSST02 



Figure E-l. Symbol Table Entry 



The end of a symbol table is indicated by a two-byte field that contains 

zeros, 

An end-of-table entry in the symbol table is only one word long 
(halfword-aligned) • It contains a pointer to the next segment of the 
symbol table , if any. 

OBJECT CODE ADDRESS-LINE NUMBER TABLE 

The object code address vs. line number table is at the end of the 
object code and is fullword-aligned. There is one entry in the table 
for each line in the source program on which a statement begins. Each 
entry is two words long. The first word contains an object code pointer 
and the second an integer line number in packed decimal. The 
terminating entry in the table contains an object code pointer 
consisting of the largest positive integer possible. 

Thus, each statement of a CALL/360-OS PL/I source program and the 
object code generated for that statement are correlated. This serves 
as an important debugging aid. Figure E-2 shows the format of an entry 
in the table. 

12 3 4 Byte 



Word 1 | 



Object Code Pointer 
KdOLOP 



| Line Number (Packed Decimal) 
2 | KdOLLN 



Figure E-2. Object Code Address-Line Number Entry 
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STATIC AND CONSTANTS STORAGE 

This area contains all of the static storage, dope vectors 9 and 
constants used by the object program. Besides user-declared constants , 
data element descriptors (DED) and format element descriptors (FED) 
are included. This area actually consists of two subareas. The second 
of these areas contains the storage for all static arrays and strings. 
The first of these areas contains all other items. All automatic 
variables declared in the external procedure are treated as static 
variables. 

The initial layout of the static and constants area is shown in Figure E-3, 



Hex 



4 

8 

C 

10 

28 
2C 
30 
34 
38 
3€ 
40 

A0 

lie 

158 

IDC 

1E0 

1F8 
1FC 

200 






Entry Must Be Zero 


\ 

I DSA for 
\ External 
/ Block 

, (See Figure Ell.) 


Offset to Block's BAA 


Offset to End of DSA 


Offset to Start of Static Array and String Storage 


Not Used 


ERROR 


FIXEDOVERFLOW 


OVERFLOW 


UNDERFLOW 


ZERODIVIDE 


ENDFILE 


Not Used 


Debug Print Buffer 2 ( 1 20-character) 


Debug Dump Save Area 


Debug Print Buffer 1 ( 1 32-character) 


Not Used 


File Control Interface Block Offsets 


FOB for SYSIN/SYSPR1NT 


Not Used 


Free Static and Constants Area 







Figure £-!• Staticr and Constants Area 
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Space for the six non-relocatable general purpose registers and the 
four floating-point registers is reserved in fixed locations at the 
beginning of this area. This space is used by the arithmetic interrupt 
instructions in the communications area and on-unit prologues and 
epilogues. 

In order to make control of on-units in the external procedure the 
same as those in internal procedures 9 the first few words of this area 
are set up the same as the beginning of a dynamic storage area (DSA) . 
Thus, in effect 9 static and constants storage is the DSA for the 
external procedure. 

DATA ELEMENT DESCRIPTOR (DED) 

This control block contains information derived from explicit and 
implicit declaration of variables of type arithmetic and string. DED 
formats are shown in Figure E-4, and the flag field of each DED is 
further described in Figure E-5. 



Data Type 



| DED Formats (in bytes) 

Representation j 

_ _ I 1_ l_ 2 | 3 

Fixed-point | Flags | P j Q 
Floating-point j KBDDFFJ KdDDP j KdDDQ 

| Flags | 

j K»DDFF| Length 



Arithmetic 
String 






Figure E-4. DED Formats 



Bit |0|1|2| 3 | 4 | 5 | 6 | 7 

Fixed 



0= | String 







| Variable | 

1 



I Decimal I Fixed I Real 



J Inter- | | Short 
1= | Arith- j nal 

I metic | + + + + + + | 



1=0 



I Exter- 
nal 



Long 



j Binary j Float j Complex j=l 



L J 



• Figure E-5. Definition of DED Flag Field (K8DDFF) 



The P Byte 

P is the declared or default precision of the datum, 
values are 9 for fixed and 16 for float. 



The maximum 
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The Q Byte 

Q is the declared or default scale factor of the datum, in excess-128 
notation (that is, if the implied fractional point is between the last 
and next-to-last digit, Q will have the value 129) • 

FORMAT ELEMENT DESCRIPTOR (FED) 

This control block contains information derived from a format element 
within a format list specification for edit-directed I/O, There are 
four forms of the FED (all ha If word-aligned) : 

1. Format Item E 

1 2 3 «* Byte 

\ W | D | S 1 

j KflFEW | K3FED j K3FES | 

L J 

W - width of data-field in characters 
D - number of digits following decimal point 
S - number of significant digits to be placed in data-field 
(ignored for input) 

2. Format Item F 

1 2 3 ** Byte 

f W | D | P ] 
| K3FEW | KdFED | K3FEL | 

L —J 

W and D - (as for E-forroat) 

P - scale factor in excess-128 notation 

3. Format Items A and X 

1 2 Byte 

r ^ 

| w I 

j KdFEW j 

L J 

W - (as for E- format) 

4. Printing Format Items SKIP and COLUMN 

The FED's for these format items are half word binary integers. 

DOPE VECTORS 

String Dope Vector (SDV) 

This control block specifies storage requirements for character- string 
data. An SDV consists of eight bytes (word-aligned) , in the format 
shown in Figure E-6. 
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1 2 3 4 Byte 

r i 

J | Byte Address of String (Offset) 

Word 1 J KaDVND=0 j K3DWO 



4 

KgDVIN \ * J 

L 



Figure E-6. SDV Format 

where £ is the length- 1 of the string in bytes? a negative value 
indicates the null string. 

Array Dope Vector (ADV) 

This control block contains information required in the derivation 
of elemental addresses within an array data aggregate. The ADV has 
three functions: 

1. Given an array 9 to step through the array in row-major order. 

2. Given the subscript values of an array element, to determine 
the element address. 

3. Given an element address , to determine its subscript values. 

In a CALL/360-OS PL/I implementation, arrays are stored in row-major 
order in storage. The elements of an array are normally in continuous 
storage; if the array is a cross-section, its elements may be 
discontiguous. Such discontiguity, however , is transparent to 
algorithms that employ an array dope vector. 

The ADV contains (4+6n) bytes, where n is the number of dimensions of the 
array. The ADV is word-aligned. Its format is shown in Figure E-7. 
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Byte 



Word 1 



2 
KBDVIN 



Word 3 



r 7 7 t 

| Number of | Virtual Ongxn | 

| Dimensions! K9DWO j 

I K3DVND 1 1 


| Multiplier (1) | Multiplier (2) | 
, + , 

• • • « . . j • • • • • • i 

i + 1 

| . . . ... | Multiplier (n) j 

, + , 

| Upper Bound (1) j Lower Bound (1) j 
I + , 

1 • • • • • • 1 • • • « . « 1 

| + , 

| + 1 

j Upper Bound (n) j Lower Bound (n) j 



Figure E-7. ADV Format 



Definitions of ADV fields: 

Virtual Origin - The byte address of the array element whose subscript 
values are all zero, that is, X(0,...,0); this element need not be 
an actual member of the array, in which case the virtual origin will 
address a location in storage outside the actual bounds of the array, 
(This address is an offset.) 

Multiplier - Multipliers are halfword binary integers which in the 
standard ADV algorithm allow calculation of element addresses. 

Upper Bound - Halfword binary integer specifying the maximum value 
permitted for a subscript in the ith dimension. This value may be 
negative. 

Lower Bound - Halfword binary integer specifying the minimum value 
permitted for a subscript in the ith dimension. This value may be 
negative. 

ADV Algorithm - Given subscript values for an n-dimensional array, 
the address of any element relative to the program origin is computed 
as: 
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Address = virtual origin ♦ ((...(S1*M1 + S2)*M2 ♦ . ..) + Sn)*Mn 

where 

Si = value of the ith subscript 

Mi = number of different values the subscript in the (i+l)th 

dimension can assume 9 except for Mn 
Mn = byte length of the element 

String Array Dope Vector (SADV) 

This control block contains information required to derive the address 
of elemental strings. The SADV is identical to the basic ADV, with 
the addition of a fullword to the end of the ADV which contains the 
length of the string in both halfwords (length-1 bytes and, if negative, 
the null string). (See Figure E-8.) 

12 3 4 Byte 

r n 

ADV 



I I 

j , 

I 2 I £ I 

III 

L J 

Figure E-8. SADV Format 

ADDRESS CONSTANT AREA 

The address constant (adcon) area is used during execution of the 
compiled object program to locate the data and library routines 
necessary to support execution. A symbolic description of this area 
is available to the compiler in the library load table (L table) so 
that symbolic references may be made to the area during code generation 
and compilation wrap-up. 

The adcon area consists of a fixed-length portion and a variable-length 
portion. The fixed-length portion of the area has the structure 
illustrated in Figure E-9. 
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Hex 




12 



16 



70 



A8 



AC 



BO 



B4 



B8 



Address of Communications 
Area 



Address of Line Number 
Table 



Address of Next Dynamic 
Storage Area 



Address of Last Byte in User's 
Area 



Address of Code Pages 



Address of Static/Constant 
Storage Pages 



Address of Relocatable 
Library Communications Area 



Address of Relocatable Save 
Area for Execution Error Package 



File Control Block 

(FCB) 
(See Figure E-l 3.) 




Address of Relocatable Save 
Area for Standard Library Routines 



Address of Relocatable Work 

Area for Level - Library 

Routines 



16 Words; Successive Object Code Page 
Addresses are Initialized in Consecutive 
Forward Locations as Required; Static/ 
Constant Page Addresses are Initialized 
in Consecutive Backward Locations as 
Required 



Figure E-9. Layout of Fixed-Lengtlt Portion of Adcon Area CPage 1 of 2) 



160 



BC 
CO 
C4 
C8 
CC 

DO 
D4 

D8 
DC 

EO 
E4 

E8 
EC 

114 
118 
11C 



Address of Relocatable Work 
Area for Level - 1 Library 
Routines 



Address of Relocatable Work 
Area for Level - 2 Library 
Routines 



Address of Relocatable Work 
Area for Level - 3 Library 
Routines 



Address of Relocatable Work 
Area for Level - 4 Library 
Routines 



Address of Non-Relocatable 
Library Communications Area 



Address of Non-Relocatable 
Save Area for Execution Error 
Package 



Address of Non-Relocatable 
Save Area for Standard Library 
Routines 



Address of Non-Relocatable 
Work Area for Level - Library 
Routines 



Address of Non-Relocatable 
Work Area for Level - 1 Library 
Routines 



Address of Non-Relocatable 
Work Area for Level - 2 Library 
Routines 



Address of Non-Relocatable 
Work Area for Level - 3 Library 
Routines 



Address of Non-Relocatable 
Work Area for Level - 4 Library 
Routines 



Interrupt Save Area 




PSW Return Address 



Object Code Statement Address 




Address of Individual 
Library Subroutine 
Entry Points 
(129 Words) 



32C L0ENDF 



• Figure E-9. 



Layout of Fixed-Length Portion of Adcon Area 
(Page 2 of 2) 



i&l 



The variable- length portion contains adcons for a class of library 
subroutines which require individual block adcon areas. The variable- 
length portion also contains library routine parameter lists and the 
adcon portion of the library work space (LWS) • Only adcons for those 
routines actually required by the compilation are included in the 
variable- length portion. 

MULTI-FILE INTERFACE 

The interface for terminal and disk files involves pointers in the 
communications area, tables in the static and constants area, file 
control interface blocks (one per filename) located in the static and 
constants area, and a file control block in the fixed-length portion 
of the adcon area. 



COMMUNICATIONS AREA 

The communications area is used for communication with the Executive 
during I/O operations. Its contents are shown below. 

Hex 

r 1 - 

FILEPTR 11C ] (File Table Offset From Commun) (1E0) | 

r ~i 

FILENBR 122 | File Index j (1,2,3, or 4) 

L J 

Figure E-10. Coiranuni cations Area 

STATIC AND CONSTANTS AREA 

FCIB Offsets and FCIB's for SYSIN and SYSPRINT 

Up to four disk files can be open at one time. The FCIB f s for the 
open disk files are pointed to by the first four words of the area 
shown in Figure E-ll. There are no pointers to the FCIB f s for SYSIN 
and SYSPRINT. Their origins are fixed as the first and second FCIB 
pointer words. This overlay is feasible because only the locations 
of the buffer pointer words of the FCIB's for SYSIN and SYSPRINT are 
valid. These pointers are the last two words of the area and point 
to displacements 2C and 34 of the adcon area. (See "Adcon Area (Fixed- 
Length Portion) . w ) 
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FILETABL 



Hex 

1E0 
IE** 
1E8 
1EC 
1F0 

1F8 
1FC 



r 

| A CFCIB Offset (From Commun)) 


| A (FCIB Offset (From Coromun)) 


j A (FCIB Offset (From Commun)) 


| A (FCIB Offset (From Commun)) 


| End of Table (FFFF) 


| Unused 


| 00 A(SYSIN Buffer Pointer Pair) 


2C 


| 81 A(SYSPRINT Buffer Pointer Pair) 


34 



* 
♦* 



* - Start of Dummy SYSIN FCIB 
** - Start of Dummy SYSPRINT FCIB 



Figure E-ll. FCIB Offsets and FCIB's for SYSIN and SYSPRINT 

FCIB's for Disk Files 

An FCIB is built in the static and constants area for each filename used. 
This area is defined by FCIBDEF DSECT in the Zap macro (IHEZAP) . The 
format of each FCIB is shown in Figure E-12. 

Hex 



FCIBTITL 



FCIBMODE 
FCIBEXEC C 

FCIBNAME 10 

14 



FCIBFC 
FCIBFCB 

FCIBNBR 

Figure E-12. 



18 



1C 



TITLE 



I 

| OPEN/Mode 

I 



, 

I/O Code | Record | Half-Tracks |Max. Half- 
j Number | Allocated | Tracks 
| j j Allowed 



FILENAME 



File | Offset from Adcon Area of 
Codes | Buffer Pointer Pair 
+ 



I 
FILENBR | 



FCIB Format for Disk Files 
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File Codes: 



Bits and 1 = 



2 
3 
4 
5 



6 = 



7 = 



00 SYSIN (terminal) 

01 Disk input 

10 SYSPRINT (terminal) 

11 Disk output 
1 Disk input I 
1 Disk output ( 
1 List or data I/O flag 

Not busy 

1 Busy 

External format 

1 Internal format 

Non-print file 

1 Print file 



Declared 
file types 

Set by OPEN 
statement 
(disk environment 



in compiler) 



ADCON AREA (FIXED-LENGTH PORTION) 

The FCB in this area contains a common data specification set up for the 
currently active file and six pairs of buffer pointer words. It is 
defined by the FCIBDEC DSECT in the Zap macro (IHEZAP) as shown in 
Figure E-13. 



Hex 

10 
14 

18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 

48 
4C 
50 
54 
58 



Codes 




Start of Buffer 


Current Buffer Position 


/ / 


^J J> 




> 


> 




/ 


/ 


FILENBR 


Address of FCIB 


Codes 


Start of Buffer 


Current Buffer Position 


Codes 




Start of Buffer 


Current Buffer Position 


Codes 




Start of Buffer 


Current Buffer Position 


Codes 


Start of Buffer 


Current Buffer Position 


Codes 




Start of Buffer 


Current Buffer Position 


Codes 




Start of Buffer 


Current Buffer Position 



Common Data 
Specification 



SYSIN 
SYSPRINT 



► Disk Input 
or Output 



Figure E-13. FCB Format in Fixed Adcon Area 



File Codes ; 
Bits and 1 



2 = 

3 = 

4 = 

5 « 



00 SYSIN (terminal) 

01 Input <disk) 

10 SYSPRINT (terminal) 

11 Output (disk) 
Not used 

Not used 

1 List or data I/O flag 

Not busy 

1 Busy 
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6 = External format 

1 Internal format 

7 = Non-print file 

1 Print file 

Common Data Specification Portion of FCB 

Issuance of a GET or PUT statement causes the common data specification 
portion of the FCB (words 1 through 7) to be set. The buffer pointer 
words (words 1 and 2 of the area) are obtained from either the pair 
for SYSIN or SYSPRINT or a pair set up for an open disk file. The 
location of the proper buffer pointer pair in the FCB is indicated 
by a pointer in the FCIB of the file referenced in the GET or PUT 
statement. 

Byte 1 of word 7 is set with the file index also set in FILENBR of 
the communications area. The remainder of word 7 contains the address 
of the FCIB, The contents of words 3 through 6 depend on the type 
of I/O being performed. Various possibilities are shown in Figures 
E-14 through E-19, 



Byte 



Word 3 




Figure E-14. Common Data Specif ication Portion of FCB for Data Input 
and Non- Array Element Data Output 



Byte 



Word 3 



Address of Element 
KdFBEL 



Not 

Used 

Address of Symbol Table 
K3FBST 

L J 

Figure E-15. Common Data Specification Portion of FCB for Array Element 
Data Output 
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Byte 



Word 3 




Figure E-16. Common Data Specification Portion of FCB for Initialize 
Output with SKIP Option 



Byte 



Word 3 



Address of Element 
K8FBEL 



Address of DED 
KSFBDD 



Not 
Used 



L J 



Figure E-17. Common Data Specification Portion of FCB for List I/O 



Byte 



Word 3 



Address of Element 
K3FBEL 



Address of DED 
K3FBDD 

Address of FED 
KaFBFE 

Not Used 

i j 



Figure E-18. Common Data Specification Portion of FCB for Non-Complex 
Edit I/O 
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Word 3 



1 




2 3 4 


r 


Address of Element 
K3FBEL 




Address of DED 
KdFBDD 


| FED 
1 Type 
IK8FBFT 

j FED 
1 Type 
| KdFBIT 

L 


1 

1 

! 
-+- 

1 
\ 

1 


Address of Real FED 
K8FBFE 

Address of Complex FED 
KaFBIF 



Byte 



Figure E-19. 



Common Data Specification Portion of FCB for Complex 
Edit I/O 



BLOCK ADCON AREA 

Each procedure and begin block in the program has a block adcon area 
(BAA) in adcon storage. The BAA contains all the information needed 
by the block. For a begin block r the area is four words long. For 
a procedure block, it is six words plus one word for each parameter. 
The format of the BAA for every block other than the external block 
is given in Figure E-20. 

The BAA for the external block is pointed to by the second word of the 
static and constants area. The location pointed to is at displacement 
A4 from the start of the fixed adcon area. (Refer to Figure E-9,) 
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fWord 1 



Begin 
Block^ 



K8BAPM > 



Number of | 

Parameters | 

K3BANP J 



Address of Block Entry Point 
KQBAEP 
(Not Used for Begin Blocks! 



Address of Block's DSA 
K3BADS 



Address of Location Following DSA 
KSBAED 



Block's Epilogue Address 
K3BAEL 



Return Address 
K3BARA 



Address of Argianents as Stored by Code 
Generated for CALL or Function Reference 



rocedure 
^Block 



Address of Return Variable (see note) 



Note ; This field is significant only if the routine is referenced as 

a function (rather than called). It is set up by code generated 
for the function reference. 

Figure E-20. Format of Block Adcon Area (BAA) 

QN-UNIT ADCQN AREA 

The general format of an ON statement is: 

option 1. ON-condition on-unit 
option 2. ON-condition SYSTEM; 

During compilation* space for an on-unit adcon area is allocated for 
each ON statement of the form shown in option 1. The format of the 
on-unit adcon area for all on-units except ON ENDFILE is illustrated 
in Figure E-21. 
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Word 1 
2 



K30NSA > • 

6-15 • 



16-75 J 



Address of On-Unit Entry Point 
KdBAEP 



Address of DSA 
K3BADS 



Address of Following DSA 
KdBAED 



Not Used 



PSW Save Word (Second WOrd of PSW) 
KflONPS 



Relocatable Register Save Area 
(Registers 6-15) 
1 

Save Area for Relocatable Registers | 

from Levels 0, 1, and 2 Work Space j 

(240 bytes) | 

j 



Figure E-21. Format of On-Onit Adcon Area (Except for ON ENDFILE) 

Word 1 - the location of the code that will be performed if the 
ON-condition is raised. 

Word 2 - the address of the DSA (on-unit format) obtained when 
the ON-condition is raised. 

Word 3 - pointer to the word following the last word in the DSA 
pointed to by word 2. 

Word 4 - Not used. 

Word 5 - the second word of the PSW* which is saved when the 
ON-condition is raised. 

Words 6 through 15 - If the ON-condition is raised, the 

relocatable registers are saved in these locations. 
The non-relocatable registers are saved in the DSA 
pointed to by word 2. 

Words 16 through 75 - If the ON-condition is raised, the 

relocatable sections of the level 0, level 1 9 and level 
2 save areas are moved to these locations. The non- 
relocatable save areas of these levels are moved to 
the DSA pointed to by word 2. 

The format of the on-unit adcon area for ON ENDFILE is illustrated 
in Figure E-22. 
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Dec 



Hex 



ENDCON1 





ENDCON2 


4 4 


ENDCON3 


8 8 


ENDCON4 


12 C 


ENDCON5 


16 10 


Figure E-22. 


Format of Ol 



j Address of On-Unit Entry Point 
I- 



| Address of DSA 
I 



| Address of Word Following DSA 
I 



J Not Used 
1 



|PSW Save Word (Second Word of PSW) 

t 



The ON ENDFILE adcon area has the same format as words 1 through 5 
of the on-unit adcon area for other types of on- units. The contents 
of these words have similar meanings. 

LIBRARY 

At the beginning of the library area is the non-adcon portion of the 
library work space. Immediately following are all of the library 
routines needed for the object program. 

STATIC ARRAY AND STRING STORAGE 

Space for arrays and strings declared in the external block is allocated 
in this region. All items in this area are referenced by a dope vector 
in the static and constants area. 

DYNAMIC STORAGE AREAS AND ON-CONDITIONS 

A DSA (block type) is obtained during the initialization process for 
internal procedures and begin blocks. (The external procedure block 
is assigned an area within the static and constants area which serves 
the function of a DSA and is thus called the external block 9 s DSA.) 
In addition , a DSA (on- unit type) is obtained if an ON-condition covered 
by an option- 1 ON statement occurs (see "On-Unit Adcon Area", above). 
The space obtained for these DSA's is released when the block is exited 
or when the code specified by the option- 1 ON statement has been 
executed. 

CALL/360-OS PL/I ON-conditions are error, fixed-point overflow, other: 
overflow conditions, underflow, zerodivide, and end of file. Each 
DSA for a procedure or begin block contains ERROR, FIXEDOVERFLOW, 
OVERFLOW, UNDERFLOW, ZERODIVIDE, and ENDFILE words corresponding to 
these conditions. 

The format of each of the first five interrupt condition words is shown 
below. 



| Actxon 
| Code 

l 



Pointer to On-Unit 
Adcon Area 
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The format of the ENDFILE word follows, 

r * b 1 

| Number of | Pointer to | 
| Entries | ENDFILE Table | 

The first byte of the ENDFILE word indicates the number of entries 
in the ENDFILE table. (See Appendix B. ) 

There is an entry in the ENDFILE table for each unique file referenced 
within a block containing an ON ENDFILE statement. The first word 
of that entry and the DSA words for the interrupt conditions have the 
same format. They are often called action words. 

Part of the initialization for a block is to set up the ENDFILE table 
and to set all action words to zero. Execution of any ON statement 
causes the setting up of an action word. The meaning of the action 
word is determined by the action code byte. Code values are explained 
below. 

Code Meaning 

Either an ON statement for this condition or file has 
not been executed in this block or a REVERT statement 
was the last statement executed for this condition or 
file. If the corresponding ON-condition is raised , 
the code byte of the corresponding word in the 
immediately preceding DSA will be checked. If 1 or 

3, the action indicated by this code will be performed. 
Otherwise , the next preceding DSA will be checked. 
This process will continue until either a code byte 
equal to 1 or 3 is found or all preceding DSA f s have 
been searched. In the latter case, the standard system 
action will then be performed. 

1 This code value is set by the execution of an option- 
2 ON statement or by execution of a REVERT statement 
which resets conditions to those specified by a previous 
ON SYSTEM statement. If the corresponding ON-condition 
is raised, the standard system action will be performed. 

3 When an option- 1 ON statement or a REVERT statement 

which resets conditions to those specified by a previous 
option- 1 ON statement is executed, the action-code byte 
is set to 3. The last three bytes are set to point 
to the on-unit adcon area for that statement. If the 
corresponding ON-condition is raised, the action 
specified by the ON statement will be performed after 
an on-unit DSA is obtained. If the ON-condition was 
not ON ENDFILE, registers will be saved in the on- unit 
adcon area and DSA area. Levels 0, 1, and 2 work areas 
will be moved to the adcon area and DSA area. 

Figure E-23 illustrates the DSA for internal procedure and begin blocks. 
The ENDFILE table is pointed to by the immediately preceding ENDFILE 
word. 
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Dec 



Hex 



ENDDSA1 








ENDDSA2 


4 


4 


ENDDSA3 


8 


8 


ENDDSA4 


12 


20 



r 1 

Pointer to Previous DSA 



ENDDSA5 



40 



28 



ENDDSA6 
ENDDSA7 



60 
64 



3C 

40 



Pointer to BAA 



Unused 
Unused 



ERROR 



FIXEDOVERFLOW 
OVERFLOW 



UNDERFLOW 
ZERODIVIDE 



ENDFILE 
ENDFILE TABLE 



, 

• Automatic Arithmetic 
. Scalars, Strings, and 
. Arrays 

L J 

Figure E-23. Layout of DSA for Internal Procedure and Begin Blocks 

ENDDSA1 is a pointer to the previous DSA (which is either that of the 
next outer block or that of an on-unit) • ENDDSA2 is a pointer to the 
block adcon area (BAA). Automatic arithmetic scalars, strings 9 and 
arrays are set up at initialization time. (For a discussion of the 
contents of ENDDSA5, ENDDSA6, and ENDDSA7, see preceding paragraphs.) 

A portion of the static and constants area is called the DSA for the 
external block. However 9 this storage area is not dynamic. It also 
differs from other DSA f s in that the ENDFILE table is not adjacent 
to the ENDFILE word. The ENDFILE table is in the free static and 
constants area of the static and constants area. 

Figures E-24 and E-25 illustrate the DSA areas for on-units. 
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Dec 



Hex 









4 


4 


8 


8 


32 


20 


40 


28 


60 


3C 


64 


40 


88 


58 



208 



328 



DO 



148 



r 

| Pointer 


to 


Previous DSA 




| Pointer 


to 


On-Unit Adcon 


i Area 


J General 


Purpose Registers G0-G5 


| Floating-Point Register 


Fl 


| Set to i 


Ml 


Zeros 




| Floating-Point Registers 


> F2-F4 


| Level 
| (first 


Non-Reloca tabl e 
120 bytes) 


Area 


| Level 1 
| (first 


Non-Relocatable 
120 bytes) 


Area 


J Level 2 
| (first : 


Non-Relocatable 
L20 bytes) 


Area 



Figure E-24. Layout of DSA for On-Units (Except ON ENDFILE) 



Dec 



Hex 



ENDDSA1 





ENDDSA2 


4 


ENDDSA3 


* 


ENDDSA4 


12 


ENDDSA5 


40 


ENDDSA6 


60 


Figure E-25. 


Lay 


EXAMPLES 







4 

8 

20 

28 

3C 



T 

| Pointer to 


Previous DSA 


\ Pointer to 


On-Unit Adcon Area 


] Unused 


j Unused 


J Set to All 


Zeros 



Layout of DSA for ON ENDFILE On-Units 



In summary, a few examples are given below. 

Example 1 ; Assume that a call is made to internal procedure INT1 (a 
portion of which is shown below) . 

100 INT1: PROCEDURE; 



200 ON UNDERFLOW SYSTEM; 
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300 Z = 5+10**-40/10**-42; 

900 END; 
A DSA (block type) is initialized. Then, the following actions occur. 

1. As part of INT1, the ON UNDERFLOW SYSTEM; statement is executed. 
This causes the action-code byte of the UNDERFLOW word in the 
DSA for the internal block (that is, for INT1) to be set to 
one. 

2. The code generated for the assignment statement causes an attempt 
to divide 10**-40 by 10**-42. A machine interrupt occurs. 

3. The Executive transfers control to the Error Routine (IHEERR) 
via the code at ARINTRP of the communications area. IHEERR 
determines that the interrupt is due to an underflow condition. 

4. The action-code byte of the UNDERFLOW word in the DSA is examined 
and found to be one. Therefore, standard system action (printing 
of the UNDERFLOW message) is performed. 

5. Return is made to the point of interrupt. 

Example 2 ; Assume that a call is made to internal procedure INT2 (a 
portion of which is shown below) . 

100 INT2: PROCEDURE; 



200 OPEN FILE(FIHL2X INPUT; 



300 ON ENDFILE(FIHL2) X=2; 



39tT DOI = 1 to 10; 

400 GET FILECFIHL2) A,B,C; 



800 END* 
900 END; 

A DSA (block type) is set up. Then, the following actions occur. 

1. As part of INT2, the ON ENDFILE(FIHL2) X=2; statement is 
executed. This causes the action-code byte of the action word 
of the ENDFILE table entry in the DSA that corresponds to FIHL2 
to be set to 3. The remaining three bytes of the action word 
are set to point to the on-unit adcon area for this statement 
(which was allocated when the statement was compiled) . Note 
that 'jf^S is not executed. 

2. Assume that FIHL2 contains only nine sets of items to be read 
into A, B, and C. Then, the tenth execution of the GET statement 
causes an attempt to read past the last data item on FIHL2. 

3. The ENDFILE condition is recognized by the List- and Data- 
Directed Input routine (IHELDIB) . It calls IHEERR. 
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4. IHEERR examines the action-code byte of the action word in the 
ENDFILE table entry for FIHL2. Since the byte contains a code 
of 3, IHEERR performs the following actions* 

a. Initializes the on- unit adcon area pointed to by the action 
word. 

b. Obtains main storage locations for an on- unit DSA. 

c. Initializes the on- unit DSA. 

d. Transfers control to the on- unit code pointed to by the 
first word of the adcon area. This code corresponds to 
X=2 and causes X to be set to 2. 

5. The on- unit code transfers control to entry-point IHEERRN of 
Error Routine (IHEERR) . 

6. IHEERR releases the on- unit DSA area and transfers control to 
the next statement in the internal block (that is # in INT2) . 

Example 3 : Assume that a call is made to internal procedure INT3 (a 
portion of which is shown below) . 

100 INT3: PROCEDURE; 



200 ON UNDERFLOW BEGIN; 

210 Z=0; 

220 SWT2=5; 

230 END; 

300 X=5; 



400 R=F/Y; 

900 END; 
A DSA (block type) is set up. Then, the following actions occur. 

1. As part of INT3, the ON UNDERFLOW BEGIN; statement is executed. 
This causes the action-code byte of the UNDERFLOW word in the 
DSA for internal procedure INT3 to be set to 3. The remaining 
bytes of the UNDERFLOW word are set to point to the on-unit 
adcon area (established for this statement at compile-time) . 

2. Control is transferred past the code generated for the begin 
block (to statement 300) . 

3. A machine interrupt occurs while the expression R=F/Y is being 
computed. Control is passed to IHEERR. 

4. IHEERR determines that the interrupt is due to an underflow 
condition. Then it determines that the action-code byte of 
the UNDERFLOW word is set to 3. As a result, IHEERR performs 
the following actions. 

a. Saves relocatable registers and second word of PSW in the 
on-unit adcon area pointed to by the rightmost three bytes 
of the UNDERFLOW word. 
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b. Moves levels through 2 relocatable library work space 
to on-unit adcon area, 

c. Gets a DSA for the on-unit and saves non- relocatable 
registers in this area. 

d. Moves levels through 2 non-relocatable library work space 
to the DSA. 

e. Transfers control to the code generated for the begin block 
via the first word of the on-unit adcon area* 

The initialization code for the begin block causes another DSA 
(block type) to be generated. In addition , the block may contain 
option- 1 ON statements (that is, having specified on-units) 
that cause action words to be set up for this DSA when the ON 
statements are executed. 

After the main code of the begin block has been executed, its 
epilogue code is performed. The DSA for the begin block is 
released. 

Control is transferred to entry-point IHEERRR of Error Routine 
(IHEERR). 

IHEERR performs the following actions. 

a. Restores fixed and floating-point registers. Restores PSW. 

b. Restores levels 0, 1, and 2 library work space. 

c. Releases the DSA for the on-unit. 

d. Causes control to be returned to the point of interrupt. 



DATA ADDRESSING 

All items in the object program can be addressed by a combination of 
a base address and a displacement from that address. All necessary 
base addresses are either in the adcon area or permanently assigned 
to relocatable registers. Thus, the base address can be easily obtained 
and the displacement added to give the true address of the item. 

The object program uses ten relocatable registers, six of which have 
permanently assigned values. The other four (12 to 15) are used for 
obtaining necessary base addresses and for linkage. Figure E-26 shows 
the contents of the general purpose registers. 

Library 
Designation 



GPR 



0-5 
6-8 

9 
10 
11 
12 
13 
14 
15 



Fixed- point arithmetic 

Code cover (first 12,288 bytes) 

Adcon area cover 

Static and constants cover 

Current DSA cover 

Volatile 

Volatile and parameter list cover 

Volatile and return address 

Volatile and entry point address 



GO 
P0 



to G5 

to P2 

P3 

P4 

P5 

P6 

P7 

P8 

P9 



Figure E-26. General Purpose Register Assignment 
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During subroutine linkage, the parameter list register and the entry 
point register are used only if needed. Subroutine linkage assumes 
that general purpose registers 2 through 11 and floating-point registers 
4 and 6 are the same upon return. 
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APPENDIX F - SUPPORT SERVICES FOR LANGUAGE PROCESSORS 



The CALL/360-OS PL/I compiler (language processor) runs in a simplified 
time-sharing environment under the control of the CALL/360-OS Executive, 
Facilities are simplified in keeping with the design objective of a 
high-performance system. The CALL/360-OS Executive analyzes and 
responds to all terminal commands. It provides a line editor that 
accepts source programs from a terminal and arranges this input for 
compilation. 

The interface between the CALL/360-OS Executive and its associated 
processors and user programs is based on the following requirements: 

• All processors and user programs are relocatable. 

• All processors are reentrant, 

• All jobs can be described for the present as the sequence: 
compilation plus execution, 

• At compilation time* two modules are in use by the terminal: the 
processor and the user program area. The processor is considered 
to have control. 

• At execution time* only one module is in use by the terminal: 
the user program area. All runtime I/O routines* arithmetic 
functions* etc.* are attached to the program area as a runtime 
package. The user program is considered to have control* 

• Control may be taken away from the language processor or user 
program at any time (with two exceptions — see below) and the user 
program area written onto the disk, 

• This generally happens when a program uses its initial time quantum 

(presently about three seconds). When it is time for the user 
to "get another time slice** the user area is read from the disk 
into (probably) a different ^rea o£ core. This process is generally 
referred to as a *ti^e^cpiait«ft swap." 

The interface is designed ifcfr - 4JMtit ar mjfafltiwim amount of interaction is 
needed*- Tbis ife a % nH?m0^^ : : .€^p$tm, $m a- time-sharing system where 
§0-90 pereefrt of all jolli v mf<@ '"'mS^fy^t in less than 900 milliseconds. 
The interface consists prlitt&riiy of two core communications regions. 
The regions are the communications area of the user work area and the 
user terminal table* 

The CALL/360-OS Executive c&ft be called only via the SVC instruction 
in the communications area. To issue a request to the Executive, a 
language processor or runtime program must load register with a 
request code and then execute the SVC instruction to transfer control 
to the Executive. In CALL/360-OS M./I* this is accomplished at compile 
time by calling the SVC Director ($SVC) $ it is accomplished at runtime 
by calling the Library SVC -Mrector (IHESVC). Either routine loads 
register with the parameter passed by the calling instructions and 
executes the SVC. The o®<$& in register tells the CALL/360-OS 
Executive what action to take. A language processor on this system 
should not exceed 81*920 bytes (forty 2 048-byte blocks) in order to 
achieve effective utilization of memory. 

Note: In CALL/360-OS documentation* the request code loaded in register 
is usually referred to as an SVC code. 
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COMPILER/EXECUTIVE INTERACTIONS 



STORAGE ALLOCATION 



To eliminate the necessity for elaborate and time-consuming core 
management routines , when a user specifies that his program is to be 
compiled and executed , the space necessary to accomplish this is 
allocated in one contiguous block. This block contains, at various 
stages in compilation and execution, the communications area, source 
program, object program, compiler work space, disk and terminal I/O 
buffers, etc. The Executive uses a unique core allocation algorithm 
for each processor in the system. This algorithm must be expressed 
in terms of constants and the following variables: 

1. Number of bytes in the source program 

2. Number of lines in the source program 

The algorithm should be such that compilation and execution of at least 
90 percent of all programs using that processor can be accomplished 
within the allocated space. The actual core area allocation is the 
smallest number of 2 0** 8-byte blocks which completely contain the 
computed number of bytes. 

There is a 20**8-byte area at the very bottom of the user area that 
the Executive uses for holding various pointers. This area is swapped 
with the user program. Language processors, however, are generally 
unaware of its existence. 

The allocated area may be arranged by the processor in any way with 
the following restrictions: 

1, A communications area must exist at the bottom (that is, in 
the lower-numbered locations) of every user area, 

2. Before compilation, the source program will be placed by the 
Executive at the top of the user area, at a location indicated 
in the user terminal table. 

If, during the course of compilation, it is determined that the amount 
of core initially allocated is insufficient, the additional core 
required is requested by the SVC in one of two modes. The first mode 
is used when compilation has been completed, and the Executive need 
only attach the extra core to the existing area and return control 
to the requester. The second mode of the SVC is used when compilation 
is incomplete, and the amount of extra core required is indeterminate. 
In this case, the Executive will add a percentage of the original 
allocation to the area, set a bit in the OTT indicating that 
reallocation has taken place, and restart the compilation from the 
beginning. 

INITIAL REGISTER SETTINGS 

Before passing control to a processor, the Executive sets register 
7 with the base of the processor, and register 12 with the base of 
the user (program) area. Control is then passed to the first byte 
of the processor. 
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USER WORK AREA 

The Executive places the source program entered by the user at the 
end (higher- numbered locations) of the user work area. This text 
contains line numbers and end-of-line indicators. The format of the 
source lines is depicted in Figure F-l- 

count EOF 



i i 



t 



t 



count NL NL 

Figure F-l. Format of CALL/360-OS Source Lines 

Each line is started by a count byte. The count is in binary. This 
byte contains the number of bytes in the line including the count byte 
itself. The next character after the count byte is a numeric character 
which is the first character of the line number. The line number is 
one to five numeric characters in length and is terminated by the first 
nonnumeric character if the number is less than five digits. The last 
character in the line is the new line (NL) character. 

Source lines begin and end on byte boundaries. There are no spaces 
or fills between lines. The last character of the source program is 
an EOF character which is hex 01. The EOF character is in the position 
occupied by what would be the count byte if there were another line. 

The beginning (lower-numbered locations) of the user work area has 
the user communications area. The communications area is used to pass 
parameters between the compiler and the object program. Some of the 
items contained in this communications area are: 

1. Pointer to and length of address constant area: 

a. For compiler's address constants 

b. For user's address constants 

2. Register relocation information: 

i 

a. For registers containing compiler address constants 

b. For registers containing user address constants 

3. Interrupt control information 

4. Swap flag 

5. Terminal I/O buffer 

6. Pointer to next available byte in terminal I/O buffer 

7. Terminal output inhibit flag 

8. Pointer to user's OTT entry (set by the CALL/360-OS Executive) 

A complete list of the contents of the communications area is given 
under "Communications Area" in this appendix. 
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USER TERMINAL TABLE 

The user terminal table (UTT) is a table that is maintained by the 
CALL/360-OS Executive in its own area. It is primarily for the use 
of the Executive. However , it also contains information that is needed 
by the compiler. It may be read, but not written, by the compiler. 
Some of the items contained in the UTT are: 

1. Length of user's work area 

2. Location and length of source program 

3. Information as to whether disk files have been attached 

The contents of the UTT required by the compiler are listed under "UTT 
Data Available to Language Processor" in this appendix. 

The UTT is assembled as a DSECT macro and is available to all processor 
writers. It will be supplied either on cards or through the macro 
library. 

ADDRESSING 

All processors and user programs in the system must be interruptable 
and relocatable at any time (with two exceptions which are described 
below) . When a processor or user program is relocated, the Executive 
will update all 24-bit addresses referencing the relocated area before 
returning control to the point of the interrupt. All updating will 
be made by performing fullword adds. To make this possible, the 
location of these values must be specified in the communications area 
of the user program. This is done by means of six words (CSPTR through 
PSREG) : three describing those values to be relocated with the 
processor and three describing those to be relocated with the user 
program. The first word in each set points to the beginning of the 
contiguous block containing that type of saved value. The second word 
indicates the extent of the block. The third word specifies the first 
and last registers, in the order used in an LM instruction, containing 
such values. The implications of this method are as follows: 

1. All stored values referencing a processor or user program must 
be kept in the specified contiguous locations, and these 
locations must contain only this type of value. 

2. All values referencing the processor and the user area which 
are kept in registers must be kept in the registers specified 
by CSREG and PSREG. The registers specified by CSREG and PSREG 
must be in sequence and contain only this type of value. 

Note : Register is considered to contain absolute values and is never 
updated. 

I/O PROCESSING 

There are two types of I/O processing done by a processor or user 
program: terminal and disk. 

Terminal I/O 

The terminal I/O buffer (TMBUF) is at the end of the communications 
area. This buffer is used for all input or output operations with 
the terminal. Input from the terminal is requested by means of a call 
to the Executive. The input is placed at the beginning of this buffer 
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and is terminated by a new line (NL) character. Only one line of input 
at a time can be requested. 

A word in the communications area (BUFPTR) indicates the next available 
byte in the buffer when it is being used for output. As output is 
placed in the buffer, this pointer is updated. The Executive empties 
the buffer and resets the pointer to zero under the following 
conditions: 

1. When it is full. This is indicated by means of a call to the 
Executive. 

2. When input is requested. 

3. When the program is swapped, except when the output inhibit 
flag (OPFLG) is ON. This flag is set during the time interval 

in the output routine when the output pointer does not correspond 
with the actual contents of the buffer. 

4. On final exit. 

The output inhibit flag allows the compiler to defer output during 
any time-slice interrupts. This is necessary when certain values , 
such as the terminal buffer pointer, are being changed. 

Since the same buffer is used for input and output, it is not possible 
to place output data in the buffer unless all the input has been 
processed. The Executive assures that all output has been performed 
before a line of input is requested. The compiler (actually, the run- 
time library) considers it an error if more input is provided than 
is needed by the GET statement. If less data is provided than is 
required to satisfy the GET, additional lines are requested, one at 
a time, until the correct amount has been entered. To request input, 
a •?• character is typed out on the terminal. 

Note ; The Executive places an end-of-file (X f 01 f ) character in the 
byte indicated by the output pointer, so the last byte in the 
buffer must always be left empty. An end-of-file character 
placed in the buffer by the user program will be treated by 
the Executive as an end-of-file. Other undefined characters 
are reserved for use of the Executive terminal handling routines. 
The presence of these characters in the terminal I/O buffer 
may cause unpredictable results. 

Disk I/O 

The user is permitted up to four open disk files in his program. These 
files may be in any combination of input or output modes. Files may 
be closed and the same or new ones opened in either input or output 
mode. Each active file has an I/O buffer of 3712 bytes assigned to 
it. The first 3440 bytes are used as the I/O area to read and write 
one half track of data. The number of half tracks of disk space 
available per file is established by the user through the FILE command. 

Disk input or output is accomplished by calling the Executive. The 
Executive is in no way concerned with the internal format of the data 
files. It performs the physical I/O in buffer-size blocks (3440 bytes) 
in the user area. Data files can be "reset" by special use of the 
SVC. 
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INTERRUPT HANDLING 

During execution , a user can specify the actions to be performed if 
end-of-file or arithmetic interrupt conditions occur by use of ON 
statements. The runtime library determines the processing required 
by ON- conditions. 

The compiler can control which arithmetic interrupts are in effect 
by use of the Set Program Mask (SPM) instruction. Upon entry to the 
compiler, the contents of the program mask are indeterminate. 

When an arithmetic interrupt occurs, it is processed by the Executive 
as follows: 

1. The program check old PSW is stored in an entry (PSW2SV) in 
the communications area (to be used by the processor) . The 
PSW contents are updated when a program is swapped. The update 
is performed on the language processor" s base address if SVC 
code 11 has not been given, and on the user program base address 
if SVC code 11 has been given. 

2. Control is transferred to a routine that alters the base register 
and branches to the appropriate interrupt processing routine. 
During compilation, the displacement of the interrupt routine 
from the beginning of the compiler is found in location ARINTRP? 
during execution, the interrupt routine itself begins at location 
ARINTRP. When all processing for the interrupt is completed , 
and execution is to continue with the instruction following 

the interrupted instruction, the Executive is informed by the 
use of SVC code 7 or 8. To resume processing at a different 
point, the address portion of the saved PSW can be modified 
by the processor prior to issuing the SVC. 

3. The Executive saves the contents of all registers at interrupt 
time in the user communications area. As indicated above, 
requests to the Executive are issued by loading a request code 
in register and executing the SVC instruction in the 
communications area. Thus, the call to the Executive (requesting 
return to the interrupted code) causes execution of an SVC 
instruction. Since the SVC is an interrupt itself, the register 
save area contains the contents of the registers at the time 

the SVC was given, not the contents of the registers at the 
time of the arithmetic interrupt. Therefore, if registers are 
to be preserved, the language processors must save and restore 
all registers while processing an arithmetic interrupt. 

An end-of-file condition is detected by a special return from the 
Executive from a read request. When this situation occurs, the run- 
time library branches directly to the library end-of-file routine. 

SWAP- INHIBITED SITUATIONS 

During the process of compilation, the contents of the registers cannot 
always correspond with the relocation specification in the 
communications area. This situation normally occurs twice: 

1. When the program is being initiated. 

2. When the program area is being changed from its compile-time 
configuration to its runtime configuration. 

Each non-swap interval may have a maximum duration of 16 milliseconds. 
In 1 above, no special action must be taken as swapping will not take 
place during the first 16 milliseconds. In 2 above, the processor 
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and the program can be made non-swappable (non- relocatable) by setting 
a word in the communications area to nonzero (SWPFLG) . The swap flag 
may be set only once during a compilation, 

END OF COMPILATION 

When compilation is completed successfully, the compiler must perform 
at least three functions before relinquishing control to the user 
program. These functions are: 

1. Determine whether there are one or more unused 2048-byte blocks 
at the top of the program area that are not needed for data 
files. If so, these must be returned by means of the SVC. 

2. Adjust the processor and program relocation information to 
reflect the new situation. While this is being done, the program 
is made non-swappable. 

3. Go to the Executive with an SVC code 11 to indicate that 
compilation is complete (return is to the first byte of the 
user's program (PRGBN); see SVC code 11 write-up). 

When control is transferred to the user's program, the user program 
must : 

1. Indicate that the program is now swappable by setting SWPFLG 
to zero. 

2. Open all data files that can be opened at this time and specify 
how much additional memory will be required. During compilation, 
the language processor should keep track of the maximum number 
of data files that can be open at any one time and calculate 

the additional core required to hold these files. In addition, 
language processors should keep track of the files that are 
to be opened during the execution of the program and do a 
multiple OPEN at this time. The reason for combining these 
functions is that every call for an OPEN will result in a swap 
and every call for more memory will probably result in a swap. 
Therefore, if all four data files are used, the Executive can 
open all four files and obtain the additional memory required 
with one swap instead of five. 

DETAILED FORMAT DESCRIPTIONS 

The communications area of the user work area and specific portions 
of the user terminal table provide the basis for compiler/Executive 
interactions* The formats of these areas and of data file tables 
maintained for active data files are described below. 

COMMUNICATIONS AREA 

The names and sizes of various fields in the communications area, as 
well as their starting locations, are given below. 

Location Size In 

(Hex) Name Words Description 

PRGBN 16 Initial entry point of compiled 

program. 
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Location 
(Hex) 

40 



Name 



Size In 
Words 



CSPTR 



44 



48 



CSLTH 



CSREG 



4C 


PSPTR 


1 


50 


PSLTH 


1 


54 


PSREG 


1 



58 



5C 



60 



64 



80 



88 



90 



BUFPTR 



OPFLG 



SWPFLG 



ARINTRP 



PSW1SV 



PSW2SV 



PSW3SV 



98 


PSW4SV 


2 


AO 


BASPROC 


1 


A4 


BASUSER 


1 


A8 


BUFLTH 


1 


AC 


UTTLOC 


1 



Description 

Compiler save pointer. Contains 
displacement from beginning of program 
of start of block of values to be 
updated when processor swapped (relo- 
cated) • 

Compiler save length. Contains length 
in bytes (must be multiple of four) of 
area occupied by values to be updated 
when processor swapped. 

Compiler registers. First half word 
contains first register used for 
values to be updated -when compiler 
swapped, second halfword contains 
last such register. 

PSPTR through PSREG are used in the same 
way as CSPTR through CSREG for values 
to be updated when user program is 
swapped. 

Buffer pointer. Contains displace- 
ment from beginning of terminal I/O 
buffer (TMBUF) to next available byte 
to be used for output. 

Output inhibit flag. Normally is 0. 
Set to 1 if output buffer should not 
be emptied when program swapped. 

Swap flag. Normally is 0. Set to 
1 at the time when a program cannot 
be swapped. 

Location to which control is trans- 
ferred on arithmetic interrupt. 

Save area for PSW when program or 
compiler swapped. 

Save area for PSW when arithmetic 
interrupt occurs (can be referenced 
by program) . 

Same as PSW2SV, but used by the 
Executive when swapping only. 

Special PSW save area. 

Processor base address at swap time. 

User area base address at swap time. 

Length of terminal I/O buffer. 

Address of UTT (user terminal table) 
of this user. 



185 



Location 
(Hex> 

BO 



Name 



SAVREG 



110 



114 



DATE 



PDMPBGN 



Size In 
Words 

24 



Description 

Locations in which registers are 
saved when program is swapped • 
Registers are saved in the order 
fixed-point 1 through then floating- 
point through 6. 

Address of the location where the 
current date is maintained by the 
Executive in the form YYMMDD (6 bytes), 

Di splacement to beginning of area 
to be PDUMPed. 
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11C 



120 



122 



123 



PDMPEND 



FILEPTR 



NOERKSG 



FILENBR 



FILE2K 



1/2 
1/4 
1/4 



Displacement toi^j^tof area to be 
PDUMPed (SVC code 13) or number of 
lines to dump (SVC code 14) . 

Pointer (displacement) to a table 
containing four logical records 
concerning data files . 

Number of error messages output to 
terminal during compilation • 

Logical file number (file reference 
number) to be read/written. 

Number of additional 2048-byte blocks 
of core required when an OPEN (SVC 
code 21) is issued* 
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SAVER0 



128 STATTAB 1 
12C SVCINST 1/2 

12E 2 1/2 



Language processor saves register 
here prior to issuing an SVC. The 
Executive restores register from 
here prior to returning control. 

Pointer to the statistical table. 

SVC instruction for execution by 
language processors. 

Locations reserved for additional 
communications cells. 



138 OSCCW 



262 



User program CCW* s (used by the 
Bxecutive> . 



550 



TMBUF 



Any length 
(between 256 
arndi 5900 bytes, 
specified by BUFLTR) 



Terminal I/O buffer 



UTT DATA AVAILABLE TO LANGUAGE PROCESSOR 

Fields of the user terminal table which can be read (but not modified) 
by the CALL/360-OS PL/I compiler are described below. 
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Name 
L#LANG 

L#LADR 

L#N2048 
L#SOURC 
L#SADDR 

L#WIDTH 
L#NLINE 

L#FLG2 



How Long 
(Bytes) 



Function 

Language processor name 
(coded value, 0-N) 

Address of this language 
processor's entry in the 
language processor table 

Number of 204 8-byte blocks 
allocated 

Length of source program 
(in bytes) 

Displacement from base of 
program area to beginning 
of source (in bytes) 

Line width (in characters) 

Number of lines of source 
statements 



Expanded user program 1 

storage allocated (bit 6) 

Set when Reg 2 on SVC code 6=0 
Not set when Reg 2 on SVC code 6*0 
Not set on initial entry (bit 6 can be 
addressed symbolically as L#ESBIT) 



How 
Adjusted 

BB 



WB 



BB 

HWB 

WB 

BB 
HWB 

BB 



L#FILE1D 

through 

L#FILE4D 



Record number of data file 
link that was just read/ writ ten 



Kea.) 



BB 



L#FILE1E 

through 

L#FILE4E 

L#FILE1F 

through 

L#FILE4F 



Number of data file links 
in the file 



Maximum number of permissible 
data file links 



Kea.) 



Kea.) 



BB 



BB 



L#FILE1G 

through 

L#FILE4G 



File type and state 



WB = word boundary 



HWB = halfword boundary 



Kea.) 



BB 



BB = byte boundary 



DATA FILE TABLE 

Data file tables (16 bytes long each) are maintained by the language 
processor and the Executive. Four of these tables may be active at 
any one time (although the design is such that the tables may be 
expanded) . 

The table addresses (displacements) are in a table that in turn is 
pointed to (displacement) by FILEPTR in the communications area. This 
addressing hierarchy is illustrated schematically by Figure F-2. 
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Table of 
Addresses 



FILEPTR 





FCIB 

#1 









(Communications 
Area) 





Figure F-2. Referencing Data File Tables 



Notes : 
1. 
2. 

3. 

4. 

5. 



The table of addresses roust begin on a word boundary. 

The table of addresses is terminated by a word of all l*s (binary 
1111 = hexadecimal F) . 

The file tables must begin on word boundaries. 

Entries in the table of addresses point to file tables in 
ascending numerical order, that is, first address is logical 
file #1, second address is logical file #2 r etc. 

If an entry in the table of addresses is 0, then the 
corresponding file table does not exist. 



The format of each data file table is detailed below. 



Byte 
0-10 

11 



Contents 

Filename (left- justified with blank padding) . If this 
field is 0, then the file is not in use. 

OPEN/mode flag 

bit 7 - set by the compiler if the file type is input 

bit 6 - set by the compiler if the file type is output 

(both bits 6 and 7 ON is legal) 
bit 5 - set by the Executive after the file has been 

opened 
bit 4 - set by compiler before Executive opens the file 
bit 3 - set by the compiler after OPEN status has 

been validated 
bits 2-1 - not used at present 
bit - set by the Executive when the last link of the file 

has been read/written 
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Byte Contents 

12 OPEN/ I/O return code 

A. Set by the Executive after an OPEN as follows: 

= OPEN successfully done. 

1 = OPEN not done because of an unrecoverable 

I/O error. 

2 = OPEN not done because file does not exist. 

3 = OPEN not done because file is locked (this 

code can only occur if bit 6 in byte 11 is ON) . 

4 = OPEN not done because file is already in use. 

5 = Not used. 

6 = Not used. 

7 = OPEN not done because file is not a data file. 

8 = Not used. 

9 = Not used. 

Byte Contents 

B. Set by the Executive after an I/O as follows: 

= READ/WRITE successfully done. 

1 = Unrecoverable I/O error. 

2 = READ/WRITE not done because user's data 

file space is exhausted. 

3 = READ/WRITE not done because file mode (input 

or output) is incorrect. 

4 = WRITE not done because no room in save storage. 

Note : Bit will be set ON if the last link was just 
read/written . 

13 Record number of data file link that was just 
read/written (same as L#FILEnD) . 

14 Number of data file links in the file (same as L#FILEnE) . 

15 Maximum number of permissible data file links (same as 
L#FILEnF) . 

Before a language processor can open a file, the following actions 
must be performed: 

1. Set the filename in bytes through 10. 

2. Set bits 4 and 6 and/or 7 in OPEN/mode flag ON and bit 5 OFF. 

Upon return from the OPEN, the language processor will find bit 5 in 
the OPEN/mode byte set ON and a return code will be set in the OPEN/I/O 
return code byte. Language processors should not alter bit 5 in the 
OPEN/mode flag as this could cause erroneous opens to be performed. 

OUTPUT BUFFER FORMAT 

The output buffer (TMBUF) starts at a fixed increment from the beginning 
of the user program (and communications) area, (location hex 550). 
The Executive always supplies the EOF. When the Executive decides 
that a time quantum is up, it places the EOF character at the end of 
the present string of output (provided OPFLG is not set) . An output 
buffer pointer is maintained by the user program so that the Executive 
knows where to place the EOF character. When control is returned after 
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an SVC code 1, 2, or a time quantum swap, when OPFLG is zero, the 
Executive resets the pointer to zero, 

FORMAT OF DATE INFORMATION 

As noted under * Communications Area*, the location of the area 
containing the current date is stored in the communications area, 
beginning in location hex 110. The format of the area containing the 
date is: 

YYMMDD 

where : 

YY is last two digits of the year (69, 70, 71, etc,) 
MM is month (01-12) 
DD is day (01-31) 

SUPERVISOR CALL (SVC) INSTRUCTION 

The use of an SVC is one way that language processors have of 
communicating their needs to the Executive, In most cases, control 
is returned to the instruction following the SVC. Because CALL/3 60- 
OS uses so many SVC codes, the probability of conflict with other user- 
defined SVC*s is very high. In order to minimize this conflict, 
CALL/360-OS uses one SVC and passes a code in register indicating 
the kind of action required. Prior to loading register with the 
SVC code, the language processor saves register in the communications 
area at SAVER0. After the Executive gets control from the SVC, it 
moves SAVER0 into the proper place in SAVREG. The Executive then uses 
SAVER0 as a temporary working area. The SVC to be used is placed in 
SVCINST by the Executive. A language processor simply executes this 
location. In cases where parameters are passed back and forth (other 
than the SVC code), they are usually passed in register 2. 

SVC code — Final exit. Control is not returned. Any terminal 
output that is in the output buffer is transmitted to the terminal, 

SVC code 1 — Output buffer full exit. Control is returned after the 
output buffer has been transmitted to the terminal. The Executive 
will place the EOF character in the buffer and reset the pointer to 
zero. 

SVC code 2 — Input from terminal required. The job is swapped out 
and placed in the new job queue. Control is returned after the output 
buffer has been transmitted to the terminal and an input line has been 
received from the terminal. It is required that the program RUN 
routines place a '• ?• at the end of the output buffer to indicate to 
the user that input is required. To ensure that this • ?• is printed 
on the terminal only when the terminal is ready to read data, the 
Executive detects its presence, turns on the L#QMPT bit in the UTT, 
and places an EOF in the last position of the output buffer. If only 
a • ?• is to be printed, L#EFBT is also turned on to eliminate the need 
for further processing of the buffer by M#LISO. M#ISRD will finally 
write the •?• on the terminal as part of the CCW chain which issues 
the read to the terminal in preparation for receiving the data input. 

The input line is placed at the beginning of the output buffer and 
is terminated by a new line (NL) character. Only one input line at 
a time is allowed. The input line must be used or removed before the 
next input line is requested or the buffer used for output. 
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SVC code 3 — Write to disk. Control is returned after the write has 
been completed. The address to begin writing (displacement) is placed 
in register 2 and the file reference number (1-4) to write is set in 
FILENBR in the communications area. Upon return, the file's record 
number will be incremented by one and the OPEN/I/O return code byte 
in the appropriate data file table will be set with a code as follows i 

= write successfully completed 

1 = unrecoverable I/O error 

2 = write not done because user has filled his 

available space 

3 = write not done because file type is input 

4 = write not done because no room left in save 

storage 

In addition to this code, bit of byte 11 will be turned ON if the 
last permissible data file link was just written. 

This SVC (and SVC code 4) operates in a special mode in order to 
implement the RESET (data file pointer) function. If register 2 is 
negative when the SVC (and SVC code 4) is issued , the Executive will 
not perform any I/O but will simply reset the user's internal pointers 
to the initial value of the data file disk address, reset the 
appropriate record number counter to zero, and return control to the 
caller immediately. 

SVC code 4 — Read from disk. Control is returned after the read has 
been completed. The address to begin reading into is in register 2 
(displacement) and the file reference number (1-4) that is to be read 
is placed in FILENBR in the communications area. Upon return, L#FILEnD 
(n=l,2,3,or 4) and the appropriate counter in the user's data file 
table will be incremented by one and the OPEN/I/O return code byte 
in the appropriate data file table will be set with a code as follows s 

= read successfully done 

1 = unrecoverable I/O error 

2 = no more data 

3 = read not done because file type is output 

In addition to this code, bit of byte 11 will be turned ON if the 
last data file link was just read. 

See special case for RESET described in SVC code 3 write-up. 

SVC code 5 — Memory give-back. Control is returned immediately. 
Register 2 contains the number of 2048-byte blocks that are being 
handed back. The Executive assumes that the memory being given back 
comes from the top (high address) of the user program area. 

SVC code 6 — Need more memory. This SVC operates in two modes. If 
the amount of memory is known, the number of 2048-byte blocks needed 
is specified in register 2. Under this condition, the Executive will 
allocate the required number of blocks and return control to the 
instruction following the SVC. The program will probably be swapped 
while waiting for memory to "free-up", and will be located at a 
different place in core when control is returned. The additional 
allocated memory is adjoined to the end of the original program area. 
When register 2 contains a nonzero value, the L#ESBIT bit of L#FLG2 
in the UTT is not changed. 

If the amount of additional memory is not known , register 2 is set 
to 0. In this event, the Executive will add an arbitrary amount of 
core, set L#ESBIT in the UTT ON and restart the job. 
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The Executive will permit more than one request for more memory. 
However, there will be an arbitrary upper limit (3-5) to the number 
of times this will be permitted. If this limit is exceeded* the program 
will be aborted. Optimally, processors should not seek additional 
memory more than once because this activity degrades system performance. 

A halfword (NOERMSG) is provided in the communications area for language 
processors to save information pertaining to error messages output 
during compilation. When more core is requested and the amount is 
not known, the user should not see error messages repeated at his 
console. To avoid reissuing compilation error messages when the program 
is restarted, the Executive will save NOERMSG in the communications 
area upon an SVC code 6 exit. It will restore this halfword when the 
program is restarted. This halfword will be set to zero the first 
time the user calls for a compilation. 

SVC code 7 — This SVC code is the same as SVC code 8. 

SVC code 8 — Exit from arithmetic interrupt routine. Control is 
returned to the instruction following the instruction that caused the 
interrupt unless the compiler has modified the address portion of 
PSW2SV. In this case, control is returned to the specified location. 
Boundary limits are checked and L#ITPB is reset. PSW2SV is moved to 
PSW1SV, and control is returned by a relinquish. 

SVC code 9 — This SVC code is presently unassigned. 

SVC code 10 — This SVC code is a combination of codes 3 and 22. 
However, if the write is not successful, the close (code 22) is not 
performed. 

SVC code 11 — Compilation complete. This is used by the Executive 
to facilitate user program space management. It should be executed 
when an object program is about to be entered from the compiler. 
Return is to the first byte of the user program area (PRGBN) and is 
immediate. No register modification is performed by the Executive 
while processing the SVC. Thus, when the SVC is issued, all registers 
must contain the values assumed by the object program. 

SVC code 12 - This is a debugging feature. It will cause the user's 
area to be dumped onto the printer, provided the printer is not 
presently being used for any other purpose (the printer I/O does not 
queue). No return is made after this SVC. This SVC is allowed only 
from the command console. 

SVC code 13 — Not used. 

SVC code 1*1 — Not used. 

SVC code 15 — Not used. 

SVC code 16 — Not used. 

SVC code 17 — End of CALL/360-OS PL/I phase 1 compilation. 

SVC code 18 — Not used. 

SVC code 19 — Not used. 

SVC code 20 — Not used. 

SVC code 21 — OPEN data file(s) and request additional memory. This 
SVC will cause each file whose OPEN/mode byte in the data file table 
has been properly set (bit 6 and/or 7 ON, bit 4 ON, and bit 5 OFF) 
to be opened and additional memory equal to the number of 2048-byte 
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blocks specified in FILE2K in the communications area to be added onto 

the user's area. A return code will be provided for each file that 

was marked to be opened. FILE2K will be cleared by the Executive 
before returning control to the user program. 

Logical file n can be closed and reopened under a different or the 
same name. The act of reopening the file informs the Executive that 
old file n is closed. 

SVC code 22 — Close data file n. 

The logical file number (n) of the file to be closed roust be contained 
in the communications area, byte FILENBR, before issuing SVC 22. 

Upon return, byte 12 of the appropriate data file table will be set 
to to indicate that the close was successfully done. 

SVC code 23 — Controlled abort. This SVC is issued when the compiler 
detects a condition that "should never happen" but did. An error code 
(range 0-999) is placed in register 2. The Executive will print this 
code on the communications console as a debugging aid for compiler 
writers. Control will not be returned after this SVC. 
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APPENDIX G - CALL/3 60-OS PL/I COMPILER MAINTENANCE 



MODULE STORAGE 

The compiler source and object code is kept on disk files in 
partitioned data sets. The names of the disk packs , 
data set names, and their usage are: 



DISK PACKS: 
External Label 
OSSPLI 



Internal Label 



RTSLC2 



System 
OS/RTS 



DATA SETS: 

RTS1.PLI. SOURCE 
RTS1 . PLI . OBJECT 
RTS1.PLI.MACLIB 



Compiler source 
Compiler object 
Macro library 



UPDATE AND ASSEMBLY 



//UPDTE 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//SYSUT1 


DD 


//SYSUT2 


DD 


//SYSIN 


DD 



PLI , RTS 9 MSGLEVEL=1 

PGM=IEBUPDTE 

SYSOUT=A 

DSNAME=RTS1 • PLI * SOURCE , DI SP=OLD 

DSNAME=RTS1 • PLI . SOURCE , DI SP=OLD 

CHANGE NAME=member name 

*************************************** 

* CARDS TO BE ADDED OR CHANGED * 

*************************************** 



/* 



//A 


JOB 


//ASM 


EXEC 


//SYSLIB 


DD 


//SYSUT1 


DD 


//SYSUT2 


DD 


//SYSUT3 


DD 


//SYSPRINT 


DD 


//SYSPUNCH 


DD 


//SYSIN 


DD 


//SYSGO 


DD 


/* 




Notes: 





7 6 6 # K , MSGLEVEL=1 

PGM=IEUASM,REGION=50K , PARM=LOAD 

DSNAME=RTS1, PLI.MACLIB,DISP=OLD 

DISP^OLD , DSNAME=S YS1 . UT1 

DISP=OLD r DSWAME=SYS1 . UT2 

DISP=OLD , DSN AME=SYS1 . UT3 

SYSOUT=A 

DUMMY 

DSNAME=RTS1. PLI. SOURCE (member name) ,DISP=OLD 

DSNAME=RTS1. PLI . OBJECT (member name) ,DISP=OLD 



1. The member names in the CALL/360-OS PL/I source data set and 
macro library are listed under "CALL/360-OS PL/I Member Names' 
below. 

2. To update a member in the MACLIB, the JCL in the UPDATE step 
must be changed from RTS1 . PLI . SOURCE to RTS1 . PLI . MACLIB . 



194 



For update , cards in the deck that have the same sequence numbers 
as cards on the disk will replace the cards on the disk. Other 
cards will be inserted into the proper place • The cards in 
the deck must be in collating sequence. 

Cards can be deleted from a member by placing the following 
card (in collating sequence) in the change deck: 

./ DELETE SEQl=nnnnnnnn # SEQ2=nnnnnnnn 

where SEQl is the first card to be deleted and SEQ2 is the last 
card to be deleted. 

An entire member from the data set can be replaced by using 
the following card instead of the CHANGE card: 

./ REPL NAME=member name 

When needed # the NUMBER card may be used to renumber the updated 
member. Place the NUMBER card after the CHANGE or REPL card. 

. / NUMBER SEQ1=ALL , NEW1=10 , INCR=1 

The ADD card may be used to add a new member. The JCL cards 
in the update procedure roust be changed as follows: 

// EXEC PGM=IEBUPDTE,PARM=NEW 

Remove the SYSUT1 card and insert the following card. 

./ ADD NAME=member name 



LINK EDIT 

A load module can be created and saved on disk so that it can be 
executed. The link edit procedure is shown below for one phase of 
the compiler. 

16 00 , f MERTON L r 8 8 • , MSGLEVEL=1 

DSNAME=RTS.LOAD,DISP=(OLD,PASS) ,UNIT=2314, X 

VOLUME=SER=ATPD07 

PGM=IEWL , PARM= f XREF , LIST , LET , NCAL f , REGION= 9 6K 

SYSOUT=A 

DSNAME=SYSIN 

DSNAME=RTS.LOAD(PHl) ,DISP=OLD,UNIT=23H*, X 

SPACE=(1024, (200,21,1) , VOLUME=SER=ATPD07 

UNIT=(SYSDA,SEP= ( SYSLMOD, SYSLIN) ) , X 

SPACE=(1024, (200,20)) 

DSNAME==RTSl.PLI.OBJECT r DISP=OLD,UNIT=2314 r X 

VOLUME=SER=RTSLC 2 

* 

SYSLIB ($CCONT) 

********************* ******* ******** 

* INCLUDE CARD FOR EACH MEMBER * 
************************************ 

/* 

Note : The load module for this link edit step will be stored in the 
data set RTS.LOAD (PHI) on disk pack ATPD07. The load module 
can be put on any disk pack under any data set name by changing 
the SYSLMOD control card. 



//MERTON 


JOB 


//JOBLIB 
/ / 


DD 


//LJED 


EXEC 


//SYSPRINT 


1 DD 


//SYSLIN 


DD 


//SYSLMOD 


DD 


// 




//SYSUT1 


DD 


// 




//SYSLIB 


DD 


// 




//SYSIN 


DD 




INCLUDE 
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CALL/360-OS PL/I MEMBER NAMES 

The member names in the CALL/360-OS PL/I source data set and macro library are 
listed in two groups, "Compilation Member Names" and "Runtime Member Names." 

COMPILATION MEMBER NAMES 

The phase in which each routine is used is indicated by PI for phase 1 
(compilation phase) , P2 for phase 2 (wrap-up phase), or P12 for both phases. 



$ABAL 


- PI 


$DRET 


- PI 


$NCSDV 


- PI 


$ACGEN 


- PI 


$EDGN 


- PI 


$NCVT 


- PI 


$ANCRE 


- PI 


$ENDES 


- PI 


$NEXP 


- PI 


$APRC 


- PI 


$ENDON 


- PI 


$NLSIB 


- PI 


$AREXP 


- PI 


$EXPND 


- PI 


$NMULT 


- PI 


$ASIDX 


- P12 


$EYPND 


- PI 


$NOPCV 


- PI 


$ATKN 


- P12 


$FIND 


- P12 


$NOPRT 


- PI 


$BEGIN 


- PI 


$FLG 


- PI 


$NPRE 


- PI 


$BGET 


- PI 


$FMT 


- PI 


$OPEN 


- PI 


$BLPRC 


- PI 


$FNB 


- P12 


$OPMZO 


- PI 


$BONSA 


- PI 


$FORI 


- PI 


$SCDV 


- PI 


$BPUT 


- PI 


$FPDL 


- PI 


$SVC 


- P12 


$BRNH 


- PI 


$FSYM 


- PI 


$TCODE 


- PI 


$CALL 


- PI 


$FVAR 


- PI 


$TOPR 


- PI 


$CATEG 


- PI 


$GPUT 


- P12 


$TRIAD 


- PI 


$CCONT 


• PI 


$GTRIAD 


- PI 


$VASGA 


- PI 


$CERR 


- P12 


$HAINI 


- P2 


$VASGC 


- PI 


$CIF 


- PI 


$HCTP 


- P2 


$VCLR 


- PI 


$CNT 


- PI 


$HDVTP 


- P2 


$VDSAC 


- PI 


$CON 


- PI 


$HLNTP 


- P2 


$VGTMP 


- PI 


$CRVT 


- PI 


$HRTLL 


- P2 


$VINSA 


- PI 


$CSTOP 


- PI 


$HSCAL 


- P2 


$WBACK 


- PI 


$DCLGN 


- PI 


$HTCR 


- P2 


$WCONT 


- P2 


$DDS 


- P2 


$MCWU 


- P2 


$WCTCT 


- P12 


$DEXP 


- PI 


$NATTP 


- PI 


$WEXP. 


- P12 


$DIOS 


- PI 


$NCALL 


- PI 


$WSTEP 


- P12 


$DOCS 


- PI 


$NCONS 


- PI 


$XERR 


- PI 


$DOG 


- PI 











RUNTIME MEMBER NAMES 



The runtime routines are all loaded in phase 2. 
executed until the runtime phase. 



IHEABU 


- 


P2 


IHEABW 


- 


P2 


IHEABZ 


- 


P2 


IHEATL 


- 


P2 


IHEATS 


- 


P2 


IHEATW 


- 


P2 


IHEATZ 


- 


P2 


IHECLOSE 


- 


P2 


IHECSC 


- 


P2 


IHECSM 


- 


P2 


IHECSS 


- 


P2 


IHEDCN 


- 


P2 


IHEDDI 


- 


P2 


IHEDDO 


- 


P2 


IHEDDP 


- 


P2 


MEDIA 


- 


P2 


IHEDIB 


- 


P2 


IHEDIM 


- 


P2 


IHEDIO 


- 


P2 



IHEIOD 


- 


P2 


IHEIOG 


- 


P2 


IHEIOP 


- 


P2 


IHEIOX 


• 


P2 


IHEJXI 


- 


P2 


IHELDI 


- 


P2 


IHELDO 


- 


P2 


IHELNL 


- 


P2 


IHELNS 


- 


P2 


IHELNW 


- 


P2 


IHELNZ 


- 


P2 


IHEMXB 


- 


P2 


IHEMXL 


- 


P2 


IHEMXS 


- 


P2 


IHEMZU 


- 


P2 


IHEMZW 


- 


P2 


IHEMZZ 


- 


P2 


IHEONREV 


- 


P2 


IHE0PEN 


- 


P2 



[owever. 


none are 


IHESQW 


_ 


P2 


IHESQZ 


- 


P2 


IHESVC 


- 


P2 


IHETHL 


- 


P2 


IHETHS 


- 


P2 


IHETNL 


- 


P2 


IHETNS 


- 


P2 


IHETNW 


- 


P2 


IHETNZ 


- 


P2 


IHEUPA 


« 


P2 


IHEVCA 


- 


P2 


IHEVCS 


- 


P2 


IHEVFA 


- 


P2 


IHEVFB 


- 


P2 


IHEVFC 


- 


P2 


IHEVFD 


- 


P2 


IHEVFE 


- 


P2 


IHEVPA 


- 


P2 


IHEVPB 


- 


P2 



196 



IHEDMA 


- 


P2 


IHEPDF 


- 


P2 


IHEVPC 


- P2 


IHEDNC 


- 


P2 


IHEPDL 


- 


P2 


IHEVPE 


- P2 


IHEDOA 


- 


P2 


IHEPDS 


- 


P2 


IHEVSC 


- P2 


IHEDOB 


- 


P2 


IHEPDW 


- 


P2 


IHEVTB 


- P2 


IHEDOM 


- 


P2 


IHEPDX 


- 


P2 


IHEXIB 


- P2 


IHEDUM 


- 


P2 


IHEPDZ 


- 


P2 


IHEXIL 


- P2 


IHEDZW 


- 


P2 


IHERSET 


- 


P2 


IHEXIS 


- P2 


IHEDZZ 


- 


P2 


IHESAD 


• 


P2 


IHEXIU 


- P2 


IHEEFL 


- 


P2 


IHESAF 


- 


P2 


IHEXIW 


- P2 


IHEEFS 


- 


P2 


IHESHL 


- 


P2 


IHEXIZ 


- P2 


IHEERN 


- 


P2 


IHESHS 


- 


P2 


IHEXXL 


- P2 


IHEERR 


- 


P2 


IHESMF 


- 


P2 


IHEXXS 


- P2 


IHEEXL 


- 


P2 


IHESMG 


- 


P2 


IHEXXW 


- P2 


IHEEXS 


- 


P2 


IHESMH 


- 


P2 


IHEXXZ 


- P2 


IHEEXW 


- 


P2 


IHESMX 


- 


P2 


IHEYGF 


- P2 


IHEEXZ 


- 


P2 


IHESNL 


- 


P2 


IHEYGL 


- P2 


IHEGPUT 


- 


P2 


IHESNS 


- 


P2 


IHEYGS 


- P2 


IHEHTL 


- 


P2 


IHESNW 


- 


P2 


IHEYGW 


- P2 


IHEHTS 


- 


P2 


IHESNZ 


- 


P2 


IHEYGX 


- P2 


IHEIOA 


- 


P2 


IHESQL 


- 


P2 


IHEYGZ 


- P2 


IHEIOB 


- 


P2 


IHESQS 


- 


P2 
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APPENDIX H - DIAGNOSTIC MESSAGES 



COMPILATION ERROR MESSAGES 



Ident- 
Code 

1 

2 

3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 



17 
18 
19 

20 
21 
22 



Error Message 
PROCEDURE STATEMENT SUPPLIED 
ILLEGAL •__" STATEMENT — NULL CLAUSE SUPPLIED 

\ " NOT STATEMENT TYPE, IGNORED 

NOT STATEMENT TYPE, ASSIGNMENT ASSUMED 

EXTRA •)', IGNORED 

f J | • NOT SUPPORTED — CHANGED TO • | • 

IDENTIFIER TRUNCATED TO 8 CHARS 

EXPONENT MISSING 

CONSTANT NOT SUPPORTED — DECIMAL USED 

DELIMITER OR SEPARATOR MUST FOLLOW CONSTANT 

BIT STRINGS NOT SUPPORTED — CHARACTER USED 

• f NOT SUPPORTED, BLANK ASSUMED 

■)• SUPPLIED BEFORE •;• 

• ' ILLEGAL DELIMITER — IGNORED 

ILLEGAL ASSIGNMENT STATEMENT 
ERROR AT ' f 



f f NOT ENTRY NAME 

STRUCTURES NOT SUPPORTED— ■ f IGNORED 

NO FORMAT ITEM FOR DATA 

ILLEGAL USE OF • • ATTRIBUTE 

PREVIOUS DECLARATION OR USE OF f _ * 

ILLEGAL f DO f INDEX 



Calling Routines 

$CNT 

$CNT 

$CNT 

$CNT 

$ATKN 

$ATKN 

$ATKN 

$ATKN 

$ATKN 

$ATKN 

$ATKN 

$ATKN 

$ATKN 

4ATKN 

$ACGEN 



$ABAL 

$ANCRE 

$APRC 

$BEGIN 

$BGET 

$BONSA 

$BPUT 

$BRNH 

$CALL 

$CIF 

$CON 

$CRVT 

$CLOSE 

$CALL 

$DCLGN 

$FLG 

$ANCRE 

$DCLGN 

$DOG 



$CSTOP 

$DCLGN 

$DCOS 

$DDS 

$DIOS 

$DOG 

$DRET 

$EDGN 

$FLG 

$FMT 

$FORI 

$ACGEN 

$OPEN 
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Ident. 
Code 

23 

24 

25 

26 

27 

28 

29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 

41 



Error Message 
ARRAY EXPRESSION ILLEGAL 
MAXIMUM NO. OF BLOCKS EXCEEDED 
ILLEGAL •WHILE' CLAUSE 

DUPLICATE • " CLAUSE 

• f AFTER , END i ILLEGAL — IGNORED 

UNDEFINED FORMAT 
ILLEGAL USE OF • ' 

UNLABELED FORMAT STATEMENT 
FILE NAME NOT INPUT FILE 

" " WHERE • 9 * EXPECTED — SKIPPING TO ■ ' 

ILLEGAL USE OF f f IN DATA INPUT LIST 

"SKIP' OPTION ILLEGAL HERE 

9 • NOT FILE NAME — IGNORED 

■TO" MISSING AFTER "GO* 

ILLEGAL STATEMENT LABEL — STATEMENT IGNORED 

ITERATIVE 'DO* REQUIRED 

■THEN 1 CLAUSE MISSING — NULL ASSUMED 

FILE NAME MISSING 

■ NOT FILE NAME 



42 'EOF* ON 'SYS IN 9 USELESS 

43 ILLEGAL FILE DESIGNATION 

44 UNRECOGNIZABLE ON-CONDITION 

45 LABEL ILLEGAL HERE — IGNORED 

46 LABEL MISSING 

47 ILLEGAL RETURNS ATTRIBUTES — 
DEFAULT RETURNS ATTRIBUTES USED 

48 ILLEGAL OPTION ON EXTERNAL PROCEDURE STATEMENT 

49 FILENAME NOT OUTPUT FILE 

50 NON-PRINT FILE — "SKIP 1 OPTION ILLEGAL 



Calling Routines 

$AREXP $NOPRT 

$CNT 

$DOG 

$DOG 

$EDGN 

$EDGN 

$EDGN $NOPRT 
$FLG $NEXP 

$FMT 

$BGET 

$APRC 

$BGET 

$BGET 

No longer used 

$BRNH 

$BRNH 

$DOG 

$CIF 

$BONSA $OPEN 
$CLOSE 

$BONSA $CLOSE 
$CALL $OPEN 

No longer used 

$BPUT $CLOSE 
$BGET $OPEN 

$BONSA 

$CON 

$APRC 

$ANCRE $APRC 

$APRC 
$BPUT 
$BPUT 
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Iderrt. 
Code 

51 

52 

53 

54 
55 
56 

57 

58 

59 

60 
61 
62 
63 
64 
65 
66 
67 
68 

69 

70 
71 

72 
73 

74 
75 

76 

77 



Error Message 

RETURN STATEMENT ILLEGAL IN ON-UNIT 

RETURNS ATTRIBUTE ILLEGAL IN EXTERNAL 
PROCEDURE — SKIPPING TO • ; • 

ILLEGAL RETURNS EXPRESSION 

FILE NAME MISSING — •SYSIN* ASSUMED 

■ f NOT FILE NAME — ON-CONDITION IGNORED 

MULTIPLE DECLARATION FOR - "—THIS 

DECLARATION USED 



• HERE CONFLICTS WITH PREVIOUS 



USE OF ■ 
USAGE 



ILLEGAL LIST AFTER ATTRIBUTE f 
IDENTIFIER * * 



FOR 



FOR IDENTIFIER f * ATTRIBUTE • ■ 

CONFLICTS WITH PREVIOUS ATTRIBUTES 

LIST MISSING AFTER ATTRIBUTE f f 

• f ILLEGAL ATTRIBUTE — IGNORED 

PRECISION ATTRIBUTE IS ILLEGAL— DEFAULT USED 

ILLEGAL PARAMETER ATTRIBUTES FOR ■ » 

ILLEGAL SCALE FACTOR FOR f f ~ IGNORED 

NOT ALL DIMENSION EXPRESSIONS ARE CONSTANTS 

FOR STRING * • — LENGTH NOT A CONSTANT 

• • HAS ILLEGAL LENGTH — 255 USED 

1 * HAS ILLEGAL •*• DIMENSION OR STRING 

LENGTH 

ATTRIBUTE FOR FILE * * CONFLICTS WITH 

PREVIOUS DECLARATION OR USE 

DUPLICATE • • DESIGNATION — LAST USED 

LIST MISSING AFTER • f 

- • ILLEGAL OPTION — SKIPPING TO f * 

DATA AND FORMAT LIST MISSING 
FORMAT LIST MISSING 

ILLEGAL I/O EXPRESSION — SKIPPING TO " * 

ILLEGAL DATA OUTPUT ITEM 

EXPRESSION ILLEGAL IN •GET" DATA LIST 



Calling Routines 

$DRET 

$DRET 

No longer used 
No longer used 
No longer used 
$APRC $BLPRC 

$ANCRE $NPRE 
$BLPRC $OPEN 
$CLOSE 

$ABAL 

$ABAL 

$ABAL 

No longer used 

$ANCRE 

$ANCRE 

|ANCRE $NOPRT 

$ANCRE 

$ANCRE 

$ANCRE 

$ANCRE 

$ANCRE 

$DOCS $DIOS 

$BPUT $DIOS 
$DOCS 

No longer used 

$DIOS 

$DIOS 

$DDS 

$DDS 

$DDS 
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Ident. 
Code Error Message 

78 ITERATION FACTOR NOT PARENTHESIZED 

79 ■ • ILLEGAL FORMAT ITEM — SKIPPING TO • f 

80 • f INCOMPLETE FORMAT ITEM — SKIPPING TO f 

81 ILLEGAL COMPLEX FORMAT ITEM — SKIPPING TO f f 

82 ' • NOT FORMAT LABEL — SKIPPING TO • f 

83 FORMAT ITEM HAS INCORRECT NO, OF FIELDS 

84 CONVERSION ERROR — SCALE FACTOR TOO LARGE 

85 PROGRAM INCOMPLETE — REQUIRED 'END' STATEMENTS 
SUPPLIED 

86 ■ • WHERE OPERAND EXPECTED 

87 ' ■ WHERE OPERATOR EXPECTED 

88 ARGUMENT LIST MISSING FROM SUBPROGRAM CALL 

89 ILLEGAL OPERAND FOR COMPARISON OPERATOR 

90 BIT STRINGS NOT SUPPORTED FOR COMPARISON 
OPERATORS 

91 OPERAND OF • ■ MUST BE BIT STRING 

92 PREFIX OPERATORS NOT SUPPORTED FOR BIT STRINGS 

93 ILLEGAL ASSIGNMENT 

94 INCORRECT NO. OF ARGUMENTS IN SUBPROGRAM 

95 INVALID ARGUMENT ATTRIBUTE IN SUBPROGRAM CALL 

96 INCORRECT NO, OF SUBSCRIPTS FOR ARRAY 

97 EMPTY DECLARATION — IGNORED 

98 CONVERSION OF CONSTANT PRODUCES EXPONENT OUT 
OF RANGE 

99 CONSTANT VALUE OR PRECISION TOO LARGE 

100 COMPILER ERROR 

101 EOF MISSING 

102 PROGRAM TOO LARGE 

103 INCOMPLETE COMMENT OR CHARACTER STRING CONSTANT 

104 IMPROPER ARRAY BOUND 

105 OPERAND INCOMPATIBLE WITH REQUIRED ATTRIBUTES 

106 LINE NUMBER NOT FOLLOWED BY BLANK 



Calling Routines 

$FLG 

$FLG 

$FLG 

$FLG 

$FLG 

$FORI 

$TCODE 

$ASIDX 

$NEXP 

$NEXP 

No longer used 

$NOPRT 

No longer used 

$NOPRT 

No longer used 

$NOPRT 

$NOPRT $NPRE 

$NOPRT 

$NEXP $NOPRT 

No longer used 

$NCVT 

$NCVT 

$NEXP $TCODE 
$NOPRT 

No longer used 

No longer used 

$ATKN $FNB 

$ANCRE 

$NOPCV $NOPRT 

$ASIDX $ATKN 
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Ident. 
Code 

107 

108 

109 

110 

111 

112 

113 

114 



Error Message 
SOURCE STMTS AFTER END OF PROGRAM IGNORED 
SEVERE DIAGNOSTICS, EXECUTION PREVENTED 
ILLEGAL STATEMENT 
ILLEGAL TITLE DESIGNATION 

■ • ILLEGAL OPERATOR 

IMPROPER RELATIONAL EXPRESSION 

SPACE FOR COMPILED CODE EXCEEDED 

(iixxxxxx) PROGRAM ERROR - COMPILE TERMINATED 

STRING TOO LONG — FIRST 255 USED 



115 

EXECUTION ERROR MESSAGES 

Ident, 
Code Error Message 

002 ERROR 

024 PRINT OPTION FORMAT ITEM FOR NON-PRINT FILE 

025 EXTRA INPUT DATA IGNORED 

123 ILLEGAL FILENAME 

124 NOT OPENED 

125 UNRECOVERABLE I/O ERROR 

126 DOES NOT EXIST 

127 LOCKED 

128 IN USE 

129 PROTECTED 

130 NOT A DATA FILE 

131 A SHARED FILE 

132 NOT INPUT TYPE 

133 NOT OUTPUT TYPE 

134 ILLEGAL ATTRIBUTES 

135 EXCEEDS FOUR FILES OPEN 

136 ^DIRECTORY MISSING 

140 END OF FILE ENCOUNTERED 

200 X LT IN SQRT(X) 



Calling Routines 

$EDGN 

$EDGN 

No longer used 

$CLOSE $OPEN 

$NEXP 

$NEXP 

$HAINI 

$CERR 

$ATKN 

Calling Routines 

No longer used 

IHEIOX 

IHEIOA IHEDDI 

IHERSET IHECLOSE 

IHEDDI IHERSET 

IHEIOA IHEOPEN 
IHEIOG 

IHEOPEN 

IHEOPEN 

IHEOPEN 

No longer used 

IHEOPEN 

No longer used 

No longer used 

No longer used 

IHEOPEN 

IHEDUM IHEOPEN 

IHEOPEN IHECLOSE 

IHEIOG IHELDI 

IHESQL IHESQS 
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Ident. 
Code 

201 

202 



204 
205 
206 
207 
208 
209 

210 
211 
212 

213 

300 



301 



320 



330 



Error Message 
X GR 174.6 IN EXP(X) 
X LT OR = IN LOG(X) OR LOG2 (X) OR LOG 10 (X) 



203 ABS(X) GE (2**50) *K IN SIN(X) OR COS(X) (K=PI) 



ABS(X) GE (2**50) *K IN TAN(X) (K=PI) 

X TOO NEAR SINGULARITY AND WILL GIVE OVERFLOW 

X=Y=0 IN ATAN(Y,X) 

ABS(X) GT 174.6 IN SINH(X) OR COSH(X) 

ABS(X) GE 1 IN ATANH(X) 

X=0, Y LE IN X**Y 

X=0 # Y NOT POSITIVE REAL IN X**Y 

Z=+I OR -I IN ATAN(Z) OR Z=+l OR -1 IN ATANH(Z) 

ABS(X) GE (2**18) *K IN SIN(X) OR COS (X) (K=PI) 

ABS(X) GE (2**18) *K IN TAN(X) (K=PI) 
OVERFLOW 



Calling Routines 

IHEEXL IHEEXS 

IHELNL IHELNW 
IHELNS IHELNZ 

IHEEXZ IHESNZ 
IHESNL 

IHETNL IHETNZ 

No longer used 

IHEATL IHEATS 

No longer used 

IHEHTL IHEHTS 

IHEXIL IHEXIW 
IHEXIS IHEXIZ 



IHEXXW 

IHEATW 

IHEEXW 
IHESNS 



IHEXXZ 
IHEATZ 
IHESNW 



IHETNS IHETNW 



INEXPLICABLE I/O ERROR 



FIXEDOVERFLOW 



ZERODIVIDE 



IHEABZ 
IHEDZW 
IHEDZZ 
IHEEXW 
IHEEXZ 
IHEMZW 
IHEMZZ 
IHEPDF 
IHEPDL 
IHEPDS 
IHEPDW 
IHEPDX 
IHEPDZ 
IHESHL 
IHESHS 
IHESMF 
IHESMG 
IHESMH 
IHESMX 

IHEDUM 
IHEIOD 
IHELDI 

IHEABU 
IHEABW 

IHEDZW 
IHEDZZ 



IHESNW 
IHESNZ 
IHESQW 
IHESQZ 
IHETNL 
IHETNS 
IHETNW 
IHETNZ 
IHEXIL 
IHEXIS 
IHEXIW 
IHEXIZ 
IHEYGF 
IHEYGL 
IHEYGS 
IHEYGW 
IHEYGX 
IHEYGZ 



IHECLOSE 
IHERSET 



IHEMZU 



IHEMZU 
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Ident. 
Code 

340 



Error Message 
UNDERFLOW 



Calling Routines 



500 
600 
601 
602 
604 

605 

606 
607 
700 
701 
702 

704 
705 
706 
802 
803 

805 
806 
807 
808 
809 
810 



SUBSCRIPT RANGE 

CONVERSION 

CONVERSION ERROR IN F-FORMAT 

CONVERSION ERROR IN E-FORMAT 

ERROR IN CONVERSION FROM CHARACTER STRING TO 
ARITHMETIC 

ERROR IN CONVERSION FROM ARITHMETIC TO 
CHARACTER STRING 

ERROR IN CONVERSION FROM FIXED TO FLOAT 

ERROR IN CONVERSION FROM FLOAT TO FIXED 

INCORRECT E(W,D,S) SPECIFICATION 

F FORMAT W SPECIFICATION TOO SMALL 

A FORMAT W UNSPECIFIED AND LIST ITEM NOT 
TYPE STRING 

A FORMAT W UNSPECIFIED ON INPUT 

SUBSTRING NOT IN DATA AREA 

MAXIMUM STRING LENGTH EXCEEDED 

END OF OUTPUT FILE 

IMPROPER NO. OF SUBSCRIPTS FOR DATA INPUT 
VARIABLE 

DATA NAME NOT FOUND IN SYMBOL TABLE 

SUBSCRIPT NOT IN USER AREA 

RECURSIVE BLOCK OR ON-UNIT 

DATA I/O ON INTERNAL FILE 

ILLEGAL LABEL VARIABLE GO TO 

EDIT I/O ON INTERNAL FILE 



IHEDZW 
IHEDZZ 
IHEMZW 
IHEMZZ 
IHEPDF 
IHEPDL 
IHEPDS 
IHEPDW 
IHEPDX 
IHEPDZ 
IHESMF 
IHESMG 

IHEDDI 



IHESMH 
IHESMX 
IHEXIL 
IHEXIS 
IHEXIW 
IHEXIZ 
IHEYGF 
IHEYGL 
IHEYGS 
IHEYGW 
IHEYGX 
IHEYGZ 



IHEVPE 

No longer used 

IHEVPC 

IHELDI IHEDCN 

IHELDI 

IHELDI 

IHELDI 

No longer used 

No longer used 

IHEDOB 

IHEDOB 

IHEHK) 

IHEIOD 

IHEIOD IHERSET 

IHEDDI 

IHEDDI 
IHEDDI 
IHESAD 
IHEDDI 
IHESAF 
IHEDIO 
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I dent. 
Code Error Message Calling Routines 

811 DECLARED ENVIRONMENT NOT COMPATIBLE WITH INPUT IHEIOA 
FILE 

902 PROGRAM ERROR - EXECUTION TERMINATED IHEERR 
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APPENDIX I - MAXIMUM SIZE OF SOURCE PROGRAM 



The maximum size of a CALL/360-OS PL/I source program is determined 
by storage requirements at various stages of the compilation and 
execution processes. The values stated in this appendix apply to 
operation of the CALL/3 6 0-OS system on a System/360 computer having 
512K bytes of main storage. These values are subject to change and 
should be regarded accordingly, 

STORAGE REQUIRED AT INPUT OF PROGRAM 

Maximum area allocated to hold source statements of a program to be 
compiled under CALL/360-OS provides for 28,848 source characters or 
800 source lines. The effective maximum is determined by whichever 
limit is reached first. Either limit permits approximately 800 
CALL/3 6 0-OS PL/I statements at 30 characters per statement, 

STORAGE REQUIRED TO COMPILE PROGRAM 

The size of this area is determined by six items. Three of them are 
fixed in size and three are variable. They are listed below. 

Fixed 

Communications area 1,360 bytes 

Terminal I/O buffer 3,000 bytes 

Compiler fixed-size 14,960 bytes 

working storage 

TOTAL 19,320 bytes 

Variable 

Source program (28,848 byte max.) 

Object program 

Compiler variable-size working storage 

The size of storage up to the maximum provided to the CALL/3 6 0-OS PL/I 
compiler C112K bytes) is determined by the following formula: 

Size of area = 39,000 * 4* (bytes of source program) 

STORAGE REQUIRED TO EXECUTE PROGRAM 

The size of this area is determined by eight items. Two of them are 
fixed and six are variable. They are as listed below. 

Fixed 

Communications area 1,360 bytes 

Terminal I/O buffer 3,000 bytes 

TOTAL 4,360 bytes 
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Variable 

Object program size 1 

Static and constants storage; (62K byte max.) 

Address constant area (1.6K byte min.) 

Runtime library (7K min. £ 60K max.) 

Disk I/O buffers (multiples of 3,440 bytes) (max. of 4) 

Dynamic storage (array and string storage) 

The maximum size of this area as allowed by the CALL/360-OS system 
is 112K bytes. 

EXAMPLES 

Three examples to illustrate storage requirements follow. 

EXAMPLE 1 

A source program containing 290 source statements requires main storage 
locations as shown below. 

1. Input storage used - 8176 bytes 

2. Compiler area required - 

39,000 ♦ 4(8176) = 71,704 

= 73,728 bytes allocated 

3. Execution area used - 

Communications area = 1,360 

Terminal I/O buffer = 3,000 

area 

Object program size = 15,056 

Static and constants =1,176 

area 

Address constant area = 1,752 

Runtime library = 23,792 

Disk I/O buffer area = 

Dynamic storage = 

TOTAL = 46,136 bytes 
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EXAMPLE 2 

A program containing 15 source statements has the following requirements 
for main storage. 

1. Input storage used - 344 bytes 

2. Compiler area required - 

39,000 + 4(344) = 40,376 

= 40,960 bytes allocated 

3. Execution area used - 



Communications area 


= 


1,360 


Terminal I/O buffer 


= 


3,000 


area 






Object program size 


= 


632 


Static and constants 


= 


600 


area 






Address constant area 


= 


1,780 


Runtime library 


= 


16,572 


Disk I/O buffer area 


= 





Dynamic storage 


= 





TOTAL 


= 


23,944 



EXAMPLE 3 

A program containing 434 source statements requires main storage as 
follows. 

1. Input storage used - 18,287 bytes 

2. Compiler area required - 

39,000 ♦ 4(18,287) = 112,148 

= 112,640 bytes allocated 

3. Execution area used - 

Communications area = 1,360 

Terminal I/O buffer = 3,000 

area 

Object program size = 27,056 

Static and constants = 3,124 

area 

Address constant area = 3,000 

Runtime library = 26,516 

Disk I/O buffer area = 

Dynamic storage = 

TOTAL = 64,056 bytes 
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APPENDIX J - REFERENCE LISTINGS 



CALL/360-OS PL/I COMPILER SUBROUTINES 

Under CALL/360-OS PL/I naming conventions, subroutines of the CALL/360- 
OS PL/I compiler are named $xxxxx f where xxxxx is a mnemonically 
suggestive symbol of functions performed. These subroutines are 
discussed in functional groups in Section 3, Volume I, of this manual. 
They are listed below in alphabetic order according to their mnemonics. 
If more than one entry point exists for a routine , multiple entry 
points are noted in the leftmost column. The next leftmost column 
shows the mnemonic commonly used in general discussion of the routine 
(for example , in this manual). A brief statement of function and the 
chart number for each routine are provided. 

Note : The CALL/3 6 0-OS PL/I compiler subroutine names follow the naming 
convention stated above. However, there are some exceptions 
in the member names assigned to certain routines when stored 
in CALL/360-OS PL/I libraries. For the reader's convenience, 
the exceptions are noted in Figure J-4, which is a cross 
reference of compilation module calls to other compilation 
modules. 



Entry 
Name 



Routine 
Name 



Function 



Manual 
Location 



Chart 



$ABAL $ABAL Prepare bit mask and list 

of pointers for explicitly 
declared attributes for an 
identifier 



1-135 



27 



$ACGEN $ACGEN Prepare an assignment 1-77 

statement for analysis 

$ANCRE $ANCRE Translate attribute table 1-138 

($ABTBL) into dictionary 
attribute node 



28 



$APRC $APRC Analyze syntax* create 1-78 

parameter declarations, 
and generate triads 
for internal procedure 

$APRC2 $APRC Analyze syntax* create 1-78 

parameter declarations, 
and generate triads for 
external procedure 

$AREXP $AREXP Generate error message 1-419 

for illegal array expres- 
sion 



10 



10 



70 



$ASIDX $ASIDX Advance scan index to 

next character in source 
stream 



1-56 



$ATKN $ATKN Create token table entries 

for syntactic units in 
source stream 



1-57 
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Entry 
Name 

$ATKN2 



Routine 
Name 

$ATKN 



$BPUT 


$BPUT 


$BRNH 


$BRNH 


$BRNH2 


$BRNH 


$CALL 


$CALL 



$CCONT 


$CCONT 


$CERR 


$CERR 


$CIF 


$CIF 


$CNT 


$CNT 



Function 

See above. Used for 
initial entry only 



Manual 
Location 

1-57 



Chart 



$BGET 


$BGET 


Analyze a GET statement 


1-168 


33 


$BEGIN 


$BEGIN 


Check syntax of BEGIN 
statement and generate 
part of prologue 


1-80 


11 


$BLPRC 


$BLPRC 


Define the address of a 
statement label or entry 
name 


1-141 


29 



$BONSA $BONSA Check legality of ON- 1-81 

condition and identify it 

Analyze a PUT statement 1-170 

Analyze a GO TO statement 1-82 

Analyze a GOTO statement 1-82 

Analyze the syntax of a 1-84 
CALL statement 

$CATEG $CATEG Determine whether next 1-39 

statement in token table 
is assignment statement 

Initialize every area 1-40 
required for compilation 

Signal hardware interrupt 1-420 
or unrecoverable error 
caused by the compiler 

Analyze the syntax of an 1-85 
IF statement 

Direct entokening of 1-42 
statements and determine 
which statement processor 
is required 

$CON $CON Analyze syntax of ON 1-86 

statement and generate 
code to establish ON- 
condition address 

$CRVT $CRVT Analyze a REVERT statement 1-88 

$CSTOP $CSTOP Analyze the syntax of a 1-89 

STOP statement 

$DCLGN $DCLGN Direct analysis and encod- 1-142 

ing of attributes for 
identifiers in a DCL 
statement and construct 
dictionary attribute list 



12 

34 
13 
13 
14 



71 



15 



16 

17 

18 

30 
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Entry 
Name 

$DDS 

$DEXP 

$DIOS 

$DOCS 
$DOG 



Routine 
Name 

$DDS 

$DEXP 

$DIOS 

$DOCS 
$DOG 



Function 



Manual 
Location 



$DOG2 


$DOG 


$DRET 


$DRET 


$EDGN 


$EDGN 



$EDGN2 



$EDGN 



$ENDES 


$ENDES 


$ENDON 


$ENDON 


$EXPND 


$EXPND 



$EYPND 
$FIND 

$FLG 
$FMT 



$EYPND 
$FIND 

$FLG 
$FMT 



Direct generation of triads 1-172 
required for a data list 

Build the triads required 1-90 
for an iterative DO- loop 

Find file, skip, and data 1-174 
specification pointers 
of GET or PUT statement 

Find file, title, and 1-175 
input/output attribute 
sections of OPEN or CLOSE 
statement 

Check syntax of and gen- 1-92 
erate triads for DO state- 
ment and create entry for 
program structure table 

As above, except for DO 1-92 
specification in I/O list 

Analyze the syntax of a 1-94 
RETURN statement 

Generate triads and per- 1-95 
form housekeeping for 
closings associated with 
END statement 

As above, except only 1-95 
closes END statement gener- 
ated by $EYPND to complete 
an iterative DO- loop 

Perform processing required 1-97 
at end of ELSE unit 

Perform processing required 1-98 
at end of on- unit 

Determine dimensionality 1-99 
of an array expression, 
generate required DO state- 
ments, and build temporary 
variables for indices 

Generate END statements to 1-100 
complete DO-loops of $EXPND 

Search dictionary name 1-60 
list for name entry for an 
identifier; if none, create 
one 

Perform syntax analysis 1-176 
and code generation for 
a format list 

Direct translation of a 1-179 
FORMAT statement 



Chart 



35 



19 



36 



37 



20 



20 



21 



22 



22 



23 



24 



25 



26 



38 



39 
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Entry 
Name 



Routine 
Name 



Function 



Manual 
Location 



Chart 



$FNB 



$F0RI 



$FNB 



$FORI 



$F0RI2 $FORI 



$FPDL 



$FSYM 



$FVAR 



$GPUT 



$FPDL 



$FSYM 



$FVAR 



$GPUT 



$GTRIAD $GTRIAD 



$HAINI $HAINI 



Advance scan index to 1-62 
next nonblank character 
in source stream 

Create FED for expres- 1-180 

sion in a format 

specification 

As above w but for constant 1-180 
only 

Process format list for 1-181 
edit-directed I/O 

Find definition for iden- 1-144 
tifier in higher-numbered 
block 

Find definition of vari- 1-145 
able; if none, create one 

Edit 120-character line 1-421 

and place in terminal 

buffer 

Get next available triad 1-422 
from triad table 

Convert adcons to true 1-392 
addresses and reset user 
area relocation constants 



40 

40 
41 
31 

32 
72 

73 
62 



$hctp 


$HCTP 


$HDVTP 


SHDVTP 


$HLNTP 


$HLNTP 


$HRTLL 


$HRTLL 



$HSCAL $HSCAL 



$HTCR 



$MCWU 



$HTCR 



$MCWU 



Process constant table 

Set pointers of dope 
vectors of all static 
arrays and strings 

Process line number table 

Determine and load 
required library routines; 
allocate fixed and address- 
modifiable library work 
space 



Process initialization 1-399 
table and dope vector list 
to initialize constants 
and adcon areas 

Collapse C, D, and I 1-401 
tables and J list during 
wrap-up 

Perform housekeeping to 1-403 
prepare code and start 
execution 



1-394 


63 


1-395 


64 


1-396 


65 


1-397 


66 



67 



68 



69 
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Entry 
Name 

$NATTP 



$NCALL 
$NCONS 

$NCON 
$NCSDV 

$NCVT 
$NEXP 



$NLSIB 
$NMULT 

$NOPCV 
$NOPRT 



$NPRE 



Routine 
Name 

$NATTP 



$NCALL 
$NCONS 

$NCONS 
$NCSDV 

$NCVT 
$NEXP 



Manual 
Location 

1-209 



$NLSIB 
$NMULT 

$NOPCV 
$NOPRT 



$NPRE 



$OPEN 


$OPEN 


$CLOSE 


$OPEN 


$OPMZO 


$OPMZO 



Function 

Obtain attributes of argu- 
ment of CALL or function 
reference 

Generate triads to call a 1-210 
function or subprogram 

Convert constant; search 1-423 
constant table for simi- 
lar entry; if none, create 
one 

As above, except $NXFLG 1-423 
indicates the type of 
conversion required 

Process subscript list of 1-212 
an array cross-section 
and begin construction of 
dope vector 

Convert arithmetic source 1-425 
constant to arithmetic 
target type 

Control generation of 1-214 
triads to evaluate expres- 
sions, assignment statement, 
and CALL statement entry 
name and argument list 

Provide pointer to adcon 1-426 
for a library entry name 

Generate triad to multiply 1-218 
subscript value by dimen- 
sion multiplier of current 
array dimension 

Convert operand to 1-219 

required type 

Process all operators in 1-222 
operator stack whose 
priorities are greater 
than or equal to the 
current operator 

Process top entry of 1-225 
operand stack 

Analyze an OPEN statement 1-182 

Analyze a CLOSE statement 1-182 

Determine the effective 1-270 
signs of triad operands 
and arrange them to opti- 
mize referencing 



Chart 



43 



44 



74 



74 



45 



75 



46 



76 



47 



48 



49 



50 

42 
42 
52 
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Entry 
Name 


Routine 
Name 

$SCDV 


Function 

Construct initialization 
table entry for dope 
vector 


Manual 
Location 

1-271 


Chart 


$SCDV 


53 


$SVC 


$SVC 


Interface with the 
CALI./360-OS system 


1-452 


82 


$TCODE 


$TCODE 


Generate symbolic instruc- 
tions from entries in a 
triad table 


1-272 


54 


$TOPR 


$TOPR 


Process operands of 
current triad 


1-279 


55 


$TRIAD 


$TRIAD 


Generate a single entry 


1-226 


51 



in triad table by refer- 
ring to $NLOPN, $NROPN r 
and top entry of operator 
stack 



$STRD $TRIAD Same as above but using 1-226 

contents of registers G0 r 
P3, and P4 

$VASGA $VASGA Select a register for 1-280 

assignment from adcon 
register portion of 
register table 

$VASGC $VASGC Select register or pair 1-281 

of registers for assign- 
ment from computational 
register portion of 
register table 

$VFREE $VASGC Determine whether a 1-281 

designated register 
can be freed 

$VRSYN $VASGC Remove synonyms from a 1-281 

designated register 
table entry 

$VSAVE $VASGC Store contents of desig- 1-281 

nated register into 
temporary storage 

$VCLR $VCLR Allocate space for and 1-284 

initialize register table 

$VDSAC $VDSAC Convert compilers repre- 1-285 

sentation of a storage 
address to a machine 
address 

$VGTMP $VGTMP Allocate temporary storage 1-288 

in dynamic storage area 
for a block 



51 



56 



57 



57 



57 



57 



58 



59 



60 
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$WCTCT 


$WCTCT 


$WEXP 


$WEXP 


$WSTEP 


$WSTEP 



Entry Routine Manual 

Name Name Function Location Chart 

$VINSA $VINSA Generate machine-language 1-290 61 

instructions (object code) 
from symbolic instructions 
of $TCODE 

$WBACK $WBACK Step from one segment of 1-428 77 

a table to the preceding 
segment 

$WCONT $WC0NT Initiate second (wrap-up) 1-44 4 

phase of the CALL/360-OS 
PL/I compiler 

Release segment of a table 1-428 78 

to free pool 

Add segment to a table 1-428 79 

and adjust pointers to it 

Step from one segment of 1-428 80 

a table to the preceding 

segment 

$XERR $XERR Construct, parameterize, 1-431 81 

and print diagnostic 
message 

CALL/3 6 0-OS PL/I RUNTIME LIBRARY 

Routines of the CALL/360-OS PL/I compiler library provide interface 
and computational services. Under CALL/360-OS PL/I naming conventions , 
library module and entry names begin with the prefix "IHE", Module 
(routine) names are composed of these three letters and three additional 
unique letters that identify the specific routines. An additional 
unique letter is appended to identify an entry point in the module. 

The CALL/360-OS PL/I runtime library routines are discussed in 
functional groupings, corresponding to recognized packages of the 
library, in Section 5, Volumes II and III, of this manual. They are 
listed below in alphabetic order according to their mnemonics. A brief 
summary of the function of each routine is provided. 

Note : The CALL/360-OS PL/I library runtime routines follow the naming 
conventions stated above and applied in this manual. However, 
there are some exceptions in the member names assigned to certain 
routines when stored in CALL/360-OS PL/I system libraries. 
For the reader's convenience, those exceptions are noted below: 

IOB, IOD, IOP, IOX, and LDO (which are referred to in 
documentation as IHEIOB, IHEIOD, IHEIOP, IHEIOX, and IHELDO) . 
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Routine 
Name 

IHEABU 



IHEABW 



IHEABZ 



IHEATL 



IHEATS 



IHEATW 



IHEATZ 



IHECLOSE 



Function Package 

Binary Fixed Complex ABS - AFUNC 

Calculate ABS(z) = SQRT(x**2 + y**2) 
where z = x + yl and x and y are 
binary fixed real numbers. 

Short Float Complex ABS - AFUNC 

Calculate ABS(z) = SQRT(x**2 + y**2) 
where z = x + yl and x and y are 
short floating-point real numbers. 

Long Float Complex ABS - AFUNC 

Calculate ABS(z) = SQRT(x**2 + y**2) 
where z = x ♦ yl and x and y are 
long floating-point real numbers. 

Long Float Real Arctan - MFUNC 

Calculate arctan (x) or arctan (y/x) 
where x is a long floating-point 
real number expressed in radians. 

Short Float Real Arctan - MFUNC 

Calculate arctan (x) or arctan (y/x) 
where x is a short floating-point 
real number expressed in radians. 

Short Float Complex Arctan/Hyperbolic MFUNC 
Arctan - Calculate arctan (z) or hyper- 
bolic arctan(z) where z is a short 
floating-point complex expression. 

Long Float Complex Arctan/Hyperbolic MFUNC 
Arctan - Calculate arctan <z) or hyper- 
bolic arctan Cz) where z is a long 
floating-point complex expression. 

Close - IOMP 

Close a disk file* 



Manual 
Location 

11-118 



11-120 



11-122 



III-9 



111-^5 



111-16 



111-19 



11-40 



IHECSC Character String Compare - SIMP 

Compare two character strings and 
return condition code. 

IHECSM Character String Assignment - SIMP 

Assign a character string to a 
fixed-length target. 

IHECSS Character String SUBSTR - SIMP 

Produce an SDV describing the SUBSTR 
pseudo-variable and function of a 
character string. 

IHEDCN Character String to Arithmetic - TCP 
Convert a fixed- length character 
string containing arithmetic constant 
or complex expression to an arithmetic 
target with specified scale, mode, and 
precision. 

IHEDDI Data-Directed Input - IOMP 

Handle data-directed input operations. 



11-111 



11-113 



11-115 



11-88 



11-41 
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Routine 

Name 

IHEDDO 



IHEDDP 



IHEDIA 



IHEDIB 



IHEDIM 



IHEDIO 



IHEDMA 



IHEDNC 



IHEDOA 



IHEDOB 



Function Package 

Data-Directed Output - IOMP 

Handle data-directed output, per- 
forming any necessary conversion 
operations „ 

Perform Calculation of the Subscript IOMP 
Values for an Array Element - 
Calculate subscript values for an 
array element using FCB and ADV. 

F/E Format Input Director - TCP 

Convert F/E-format external data 
to an internal data type. 

A- Format Input Director - TCP 

Convert A-forraat external data to 

an internal data type during edit I/O, 

C-Format Input Director - TCP 

Convert C-f ormat external data to 
an internal C-format representation 
during edit I/O. 

Edit I/O Director - IOMP 

Interpret format code and direct 
control to required library routine. 

Arithmetic Conversion Director - TCP 
Set up intermodular flow required to 
convert data from one arithmetic data 
type to another. 

Arithmetic to Character String - TCP 
Convert an arithmetic source with 
specified scale 9 mode, and precision 
to a character string. 

F/E-Format Output Director - TCP 

Convert an internal data representa- 
tion to an external F/E-format 
during edit I/O. 

A- Format Output Director - TCP 

Convert an internal data representa- 
tion to an external A-format during 
edit I/O. 



Manual 
Location 

11-43 



11-45 



11-76 



11-78 



11-80 



11-47 



11-96 



11-90 



11-82 



11-84 



IHEDOM C-Format Output Director - TCP 

Convert an internal data representa- 
tion to an external C-format during 
edit I/O. 

IHEDUM Program Termination - HIP 

Terminate current program, closing 
all disk files. 

IHEDZW Short Float Complex Division - AFUNC 

Calculate zl/z2 in floating-point 
when zl=a+bl and z2=c+dl, and a,b,c, 
and d are short floating-point real 
numbers . 



11-86 



11-63 



11-130 
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Routine 
Name 

IHEDZZ 



IHEEFL 



IHEEFS 



IHEERN 



IHEERR 



IHEEXL 



IHEEXS 



IHEEXW 



IHEEXZ 



IHEGPUT 



Function Package 

Long Float Complex Division - AFDNC 

Calculate zl/z2 in floating-point 

when zl=a+bl and z2=c+dl # and a,b,c, 

and d are long floating-point real 

numbers. 

Long Float Real Error Function - MFUNC 
Compute the error function of x or 
the complement of this function, 
where x is a long floating-point 
real expression. 

Short Float Real Error Function - MFUNC 
Compute the error function of x or 
the complement of this function, 
where x is a short floating-point 
real expression. 

Table of Error Messages and HIP 

Indicators - Provide action codes 
of execution errors and runtime 
error messages. 

Error Routine - HIP 

Identify error condition and deter- 
mine required action. 

Long Float Real EXP - MFUNC 

Compute e**x where x is a long 
floating-point real expression. 

Short Float Real EXP - MFUNC 

Compute e**x where x is a short 
floating-point real expression. 

Short Float Complex EXP - MFUNC 

Compute e**x where x is a short 
floating-point complex expression. 

Long Float Complex EXP - MFUNC 

Compute e**x where x is a long 
floating-point complex expression. 

Output Director - MOPP 

Place 120-character line in terminal 
I/O buffer. 



Manual 
Location 

11-132 



111-25 



111-22 



11-64 



11-65 



111-30 



111-28 



111-32 



111-34 



11-70 



IHEHTL Long Float Real Hyperbolic Arctan - MFUNC 
Calculate hyperbolic arctan (x) 
where x is a long floating-point 
real expression. 

IHEHTS Short Float Real Hyperbolic Arctan - MFUNC 
Calculate hyperbolic arctan (x) 
where x is a short floating- point 
real expression. 

IHEIOA List- or Edit-Directed GET Initiation IOMP 
and Termination - Initiate or termi- 
nate list- or edit-directed GET 
statement. 



111-14 



111-12 



11-48 
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Routine 
Name 

IHEIOB 



IHEIOD 



IHEIOG 



IHEIOP 



IHEIOX 



IHEJXI 



IHELDI 



IHELDO 



IHELNL 



IHELNS 



IHELNW 



IHELNZ 



IHEMXB 



Function Package 

Output Initialization with or without IOMP 
Skipping - Initialize PUT statement 
with or without SKIP option. 

Output Data to the Buffer Area and IOMP 
Communication with CALL/360-OS - 
Place converted data in buffer and 
request an SVC to Executive when 
buffer is filled. 

Get Data Field from Input Buffer - IOMP 
Collect data from an input buffer. 

Perform SKIP(w) Function for SYSPRINT - IOMP 
Perform the SKIP function for output 
print file. 

Edited Horizontal Control Format IOMP 

Item - On input # space over next 

w characters. On output , for control 

format item, insert w blanks; for 

COLUMN (w) 9 insert blanks up to 

w-th character. 

Interleaved Array Indexer - AMP 

Provide the byte address of the next 
element of an array. 

List- and Data-Directed Input - IOMP 
Scan one item or the constant part 
of an assignment and assign it to 
internal variable. 

List-Directed Output - IOMP 

Handle list-directed output. 

Long Float Real Log - MFUNC 

Calculate log(x) to the base e, 
base 2 i or base 10 where x is a 
long floating-point real expression. 

Short Float Real Log - MFUNC 

Calculate log(x) to the base e, 
base 2, or base 10 where x is a 
short floating-point real expression. 

Short Float Complex Log - MFUNC 

Calculate the principal value of 

the natural log of z where z is 

a short floating-point complex 

expression. 

Long Float Complex Log - MFUNC 

Calculate the principal value of 

the natural log of z where z is a 

long floating-point complex 

expression. 

Real Binary Fixed MAX/MIN - AFUNC 

Find the maximum or minimum of a 
group of real fixed- point binary 
numbers. 



Manual 
Location 

11-49 



11-50 



11-52 



11-53 



11-54 



111-89 



11-56 



11-58 



111-39 



111-36 



111-42 



111-44 



11-124 



219 



Routine 
Name 



Function Package 



Manual 
Location 



IHEMXL Real Long Float MAX/MIN - AFUNC 

Find the maximum or minimum of a 
group of long floating-point real 
numbers. 

IHEMXS Real Short Float MAX/MIN - AFUNC 

Find the maximum or minimum of a 
group of short floating-point real 
numbers . 

IHEMZU Binary Fixed Complex Mult/Div - AFUNC 
Calculate zl*z2 or zl/z2 # where 
zl and z2 are fixed-point binary 
complex numbers. 

IHEMZW Short Float Complex Mult - AFUNC 

Calculate zl*z2 in floating-point, 
when zl=a*bl and z2=c+dl and a,b,c, 
and d are short floating-point real 
numbers . 

IHEMZZ Long Float Complex Mult - AFUNC 

Calculate zl*z2 in floating-point, 
when zl=a*bl and z2=c+dl and a r b # c r 
and d are long floating-point real 
numbers • 

IHEONREV On-ENDFILE and REVERT Initializer - HIP 
Initialize the on-ENDFILE condition 
unit to the current unit. 

IHEOPEN Open - IOMP 

Open a disk file. 

IHEPDF PROD- Interleaved Real Fixed Array - AMP 
Equate a long or short floating- 
point real target to the product of 
all elements of an interleaved array 
of fixed-point real expressions. 

IHEPDL PROD- Interleaved Real Long Float AMP 
Array - Equate a long floating-point 
real target to the product of all 
elements of an interleaved array of 
long floating-point real expressions. 

IHEPDS PROD- Interleaved Real Short Float AMP 
Array - Equate a short floating-point 
real target to the product of all 
elements of an interleaved array of 
short floating-point real expressions. 

IHEPDW PROD- Interleaved Complex Short Float AMP 
Array - Equate a short floating-point 
complex target to the product of all 
elements of an interleaved array of 
short floating-point complex expres- 
sions. 



11-128 



11-126 



11-134 



11-136 



11-137 



11-68 



11-59 



111-91 



111-95 



111-93 



111-99 



220 



Routine 
Name 

IHEPDX 



IHEPDZ 



IHERSET 



IHESAD 



IHESAF 



IHESHL 



IHESHS 



IHESMF 



IHESMG 



IHESMH 



Function Package 

PROD-Interleaved Complex Fixed Array - AMP 
Equate a long or short floating-point 
complex target to the product of all 
elements of an interleaved array of 
fixed-point complex expressions* 

PROD- Interleaved Complex Long Float AMP 
Array - Equate a long floating-point 
complex target to the product of all 
elements of an interleaved array of 
long floating-point complex 
expressions. 

Reset Disk Files - IOMP 

For output , write current half-track 
and reset disk and current buffer 
pointers; for input, reset disk and 
current buffer pointers. 

Initial Prologue, Expand DSA, End MOPP 
Prologue , Object Program Initiation - 
Provide DSA for block , obtain auto- 
matic storage for declared elements, 
and determine space required for 
object program, 

GO TO Interpreter - MOPP 

Update current DSA address if neces- 
sary and free chain elements up to 
the DSA to which the specified 
label belongs. 

Long Float Real Hyperbolic Sin/Cos - MFUNC 
Calculate hyperbolic sin(x) or hyper- 
bolic cos (x) f where x is a long 
floating-point real expression. 

Short Float Real Hyperbolic Sin/Cos - MFUNC 
Calculate hyperbolic sin(x) or hyper- 
bolic cos (x) , where x is a short 
floating-point real expression. 

SUM-Interleaved Real Fixed Array - AMP 
Equate a long or short floating-point 
real target to the sum of all elements 
of an interleaved array of fixed-point 
real expressions. 

SUM-Interleaved Real/Complex Short AMP 
Float Array - Equate a short floating- 
point real or complex target to the 
sum of all elements of an interleaved 
array of short floating-point real 
or complex expressions, respectively. 

SUM-Interleaved Real/Complex Long AMP 
Float Array - Equate a long floating- 
point real or complex target to the 
sum of all elements of an interleaved 
array of long floating-point real or 
complex expressions respectively. 



Manual 
Location 

111-97 



III-101 



11-60 



11-71 



11-73 



111-54 



111-52 



III-103 



III-105 



III-107 
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Routine 
Name 

IHESMX 



IHESNL 



IHESNS 



IHESNW 



IHRSNZ 



IHESQL 



IHESQS 



IHESQW 



IHESQZ 



IHESVC 



IHETHL 



IHETHS 



Function Package 

SUM-Interleaved Complex Fixed Array - AMP 
Equate a long or short floating-point 
complex target to the sum of all ele- 
ments of an interleaved array of 
fixed-point complex expressions. 

Long Float Real Sin/Cos - MFUNC 

Compute sin(x) or cos(x) where x 
is a long floating-point real 
expression in radians. 

Short Float Real Sin/Cos - MFUNC 

Compute sin(x) or cos(x) where x 
is a short floating-point real 
expression in radians. 

Short Float Complex Sin/Cos - MFUNC 

Calculate hyperbolic sine, hyperbolic 
cosine, sine, or cosine of an argu- 
ment z, where z is a short floating- 
point complex expression. 

Long Float Complex Sin/Cos - MFUNC 

Calculate hyperbolic sine, hyperbolic 
cosine 9 sine, or cosine of an argu- 
ment z, where z is a long floating- 
point complex expression. 

Long Float Real SQRT - MFUNC 

Compute SQRT(x) where x is a long 
floating-point real expression. 

Short Float Real SQRT - MFUNC 

Compute SQRT(x) where x is a short 
floating-point real expression. 

Short Float Complex SQRT - MFUNC 

Compute the principal value of the 
square root of z where z is a short 
floating-point complex expression* 

Long Float Complex SQRT - MFUNC 

Compute the principal value of the 
square root of z where z is a long 
floating-point complex expression. 

Library SVC Director - MOPP 

Interface with the CALL/3 60- OS system. 

Long Float Real Hyperbolic Tan - MFUNC 
Calculate hyperbolic tan(x) where x 
is a long floating-point real 
expression. 

Short Float Real Hyperbolic Tan - MFUNC 
Calculate hyperbolic tan(x) where x 
is a short floating-point real 
expression. 



Manual 
Location 

III-109 



111-49 



111-46 



111-57 



111-60 



111-66 



111-63 



111-68 



111-70 



11-74 



111-80 



111-78 
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Routine 
Name 

IHETNL 



IHETNS 



IHETNW 



IHETNZ 



IHEUPA 



IHEVCA 



IHEVCS 



IHEVFA 



IHEVFB 



IHEVFC 



IHEVFD 



IHEVFE 



Function Package 

Long Float Real Tan - MFONC 

Calculate tan(x) where x is a long 
floating-point real number expressed 
in radians. 

Short Float Real Tan - MFUNC 

Calculate tan(x) where x is a short 
floating-point real number expressed 
in radians. 

Short Float Complex Tan/Hyperbolic MFUNC 
Tan - Calculate tan(z) or hyperbolic 
tan(z), where 2 is a short floating- 
point complex expression. 

Long Float Complex Tan/Hyperbolic MFUNC 
Tan - Calculate tan(z) or hyperbolic 
tan(z) where z is a long floating- 
point complex expression. 

Zero Real or Imaginary Part - TCP 

Zero real part of complex arithmetic 
data and move pointer from real to 
imaginary part or zero imaginary part 
and/or get address of imaginary part. 

Data Analysis Routine - TCP 

Create a DED to describe the scale, 
mode, and precision of a character 
representation of an arithmetic value. 

Complex External to String Director - TCP 
Direct conversion of character repre- 
sentation of complex data to internal 
string data. 

Float Intermediate to Packed Decimal TCP 
Intermediate - Direct conversion of 
floating-point intermediate to packed 
decimal intermediate. 

Float Intermediate to Fixed Binary - TCP 
Direct conversion of floating-point 
intermediate number to fixed-point 
binary. 

Float Intermediate to Float Short or TCP 
Long - Move a floating-point inter- 
mediate number into a floating-point 
short or long target data item. 

Fixed Binary to Float Intermediate - TCP 
Direct conversion of a fixed-point 
binary source to a floating-point 
intermediate number. 

Float Source to Float Intermediate - TCP 
Move a short or long floating-point 
binary number into LCA to make it 
available for use as a floating-point 
intermediate number. 



Manual 
Location 

111-75 



111-72 



111-82 



111-84 



11-92 



11-109 



11-93 



11-99 



11-100 



11-101 



11-102 



11-103 
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Routine 
Name 

IHEVPA 



IHEVPB 



IHEVPC 



IHEVPE 



IHEVSC 



IHEVTB 



IHEXIB 



IHEXIL 



IHEXIS 



IHEXIU 



IHEXIW 



Function Package 

Packed Decimal Intermediate to Float TCP 
Intermediate - Convert a packed 
decimal intermediate number to a long 
floating-point intermediate number 
and store in LCA. 

Packed Decimal Intermediate to TCP 

F-Format - Convert a packed decimal 
intermediate number to an F- format 
character string and store in 
target- string data item. 

Packed Decimal Intermediate to TCP 

E-Format - Convert a packed decimal 
intermediate number to an E- format 
character string and store in 
target- string data item. 

String with Format to Packed Decimal TCP 
Intermediate - Convert a character 
string paired with an F/E-format 
element to packed decimal inter- 
mediate and store in LCA. 

Character String to Character String - TCP 
Assign a fixed- or variable- length 
character string to a fixed- or 
variable- length character string. 

Table of Powers of Ten - TCP 

Table of long-precision floating- 
point numbers representing powers of 
ten from 1 to 70. 

Real Fixed Binary Integer EXP - AFUNC 

Calculate x**n, where x is a real 
fixed-point binary number and n is 
a positive integer. 

Real Long Float Integer EXP - AFUNC 

Calculate x**n # where x is a long 
floating-point real number and n is 
an integer between -2**31 and 
2**31 - 1. 

Real Short Float Integer EXP - AFUNC 

Calculate x**n, where x is a short 
floating-point real number and n is 
an integer between -2**31 and 
2**31 - 1. 

Z**N r Z Fixed Binary Complex - AFUNC 

Calculate z**n, where z is a complex 
fixed-point binary number and n is a 
positive integer less than 2**31. 

Z**N, Z Short Float Complex - AFUNC 

Calculate z**n # where z is a short 
floating-point complex number and n 
is an integer between -2**31 and 
2**31 - 1. 



Manual 
Location 

11-104 



11-105 



11-106 



11-107 



11-95 



11-108 



11-138 



11-142 



11-140 



11-144 



11-146 



224 



Routine 
Name 

IHEXIZ 



IHEXXL 



IHEXXS 



IHEXXW 



IHEXXZ 



IHEYGF 



Function Package 

Z**N # Z Long Float Complex - AFUNC 

Calculate z**n # where 2 is a long 
floating-point complex number and 
n is an integer between -2**31 
and 2**31 - 1. 

Long. Float Real General EXP - AFUNC 

Calculate x**y # where x and y are 
long floating-point real numbers* 

Short Float Real General EXP - AFUNC 

Calculate x**y, where x and y are 
short floating-point real numbers. 

Short Float Complex General EXP - AFUNC 
Calculate zl**z2 where zl and z2 
are short floating-point complex 
numbers. 

Long Float Complex General EXP - AFUNC 
Calculate zl**z2 where zl and z2 
are long floating-point complex 
numbers. 

POLY(A,X) (A and X Real Fixed) - AMP 
For vector X, calculate: 



/1 - in 



j-l 



A(m)+V^ A(m+j)* JJ X(p + i) 
j-l 



Manual 
Location 

11-148 



11-152 



11-150 



11-154 



11-156 



III-lll 



i = 



For scalar X, calculate: 

n - m 
/ ^ A(m + j)*X**j 

j-o 

IHEYGL POLY (A, X) (A and X Real Long 

Float) - For vector X # calculate: 

n-m j- 1 
A(m) + ^P A(m + j) * JJ X(p + i) 
j= 1 i = 

For scalar X, calculates 

n-m 
J A(m + j)*X**j 

j-o 

IHEYGS POLY(A,x) (A and X Real Short 

Float) - For vector X, calculate: 

n-m j- 1 

A(m)+ 2^ A(m+j)*fJ X(p + i) 

j= 1 i = 



AMP 



III-117 



AMP 



III-114 
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Routine 

Name Function 



Package 



Manual 
Location 



For scalar X, calculate: 

n - m 

y A(m + j)*X**j 
j=0 

IHEYGW POLY (A, X) (A and X Complex Short 
Float) - For vector X, calculate: 

n - m j - 1 
A(m)+ ^P A(m+j)*|J X(p + i) 
j= 1 i=0 

For scalar X f calculate: 

n - m 

y A(m + j)*X**j 
j = 

IHEYGX POLY(A f X) (A and X Complex Fixed) 
For vector X f calculate: 

n - m j - 1 

A(m)+ V" A(m + j)*JJ X(p + i) 



AMP 



AMP 



III-123 



III-120 



j-l 



= 



For scalar X, calculate: 

n - m 

y A(m + j)*X**j 
j = 

IHEYGZ POLY (A, X) (A and X Complex Long 

Float) - For vector X, calculate: 

n - m j-l 
A(m) + \^ A(m + j)* JJ X <P + 
j-l i=0 

For scalar X f calculate: 

n - m 

y A(m + j)*X**j 
j = 



AMP 



III-126 
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MACRO-MACRO CROSS REFERENCE 

CALL/360-OS PL/I compiler support macros are described in Appendix 
C of this manual. Runtime support macros are discussed in Appendix 
D. Some of the macros in each group call other macros to perform 
required functions. Figure J-l provides a cifoss reference between 
a macro and other macros called by that macro. (Refer to the named 
appendices for details.) 

Called Macros 
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Figure J-l, Macro-Macro Cross Reference 
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MODULE-MACRO CROSS REFERENCE 

CALL/360-OS PL/I compiler modules are discussed in detail in Section 
3 of this manual. Runtime library modules are described in Section 
5. Many of these modules call CALL/360-OS PL/I macros to perform 
required functions. Figure J-2 provides a cross reference between 
a compiler module and macros called by that module. Figure J- 3 provides 
a cross reference between a runtime library module and macros called 
by that module. (Refer to the named sections for details.) 
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Figure J-2. Compilation Module-Macro Cross Reference (Page 1 of 2) 
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Figure J-2, Compilation Module-Macro Cross Reference (Page 2 of 2) 
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Figure J-3. Runtime Module-Macro Cross Reference (Page 1 of 3> 
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Figure J-3. Runtime Module-Macro Cross Reference (Page 2 of 3) 



232 



Calling Modules 




CALL 

CALLERR 

CALRTS 

CKFCB 

CSVC 

DED 

DNODE 

EXPG 

FAREA 

FIB 

GCURR 

GENER 

GETKN 

GFRST 

GNEXT 

GNODE 

GPREV 

GTRD 

1HEADC 

IHEBRA 

1HEBXT 

IHECAL 

IHEDCV 

IHEDIF 

IHEERRCD 

IHEEXT 

IHEFCB 

IHEFCIB 

IHEFROM 

IHEHDR 

IHEIOD 

IHELBE 

IHELIB 

IHEMOPP 

IHENAME 

IHEOPENT 

IHEPCH 

IHEPRV 

IHERET 

IHERST 

IHESAV 

IHESCV 

IHESDR 

IHESYM 

IHETLR 

IHEZAP 

INODE 

INST 

LIBDEF 

MNODE 

RCON 

READDISK 

READTERM 

RFIB 

RTSSVC 

SETDISK 

SETERRCD 

SETFLCA 

SETSDV 

SKPTK 

SYMDEF 

TALLY 

TGENER 



■ 










■ 












































■■■ 


■■■■■I 


!■■■■ 


■ 










■ 












































■■■ 


■■■■■i 


!■■■■ 


■ 










■ 












































■■■ 


■■■■■i 


!■■■■ 
























































■■■ 


■■■■■I 


!■■■■ 
























































■■■ 


■■■■■i 


!■■■■ 
























































■■■ 


■■■■■i 


!■■■■ 
























































■■■ 


■■■Ml 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































■■■ 


■■■■■1 


!■■■■ 
























































GBB 


■DMnnaana 
























































■■■ 


■OMOGBDDB 
























































■■■ 


■■■■■1 


!■■■■ 
























































nao 


naaaanaaan 








































3 
















■■■ 


■■■■■i 


!■■■■ 




























3 












□ 
















■■■ 


DBDQBI 


■■■■a 


























□ 


m 












3 
















□■a 


■■■■■1 


i«nn« 








■ 


















■ 


m 












■ 
















■■■ 


■■■■■1 


!■■■■ 








■ 


















■ 


m 












■ 
















■!■ 


■■■■■1 


!■■■■ 








■ 


















■ 


■ 












■ 
















■■■ 


■■■■■1 


!■■■■ 


iSDaaaDoaaGDaoocaanaaaaaaaaaaaaDaanaaonni 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■■ 


■■■■ 


■ 


■ 


■ 


■ 


■ 


■■ 


■ 


■ 


■■■ 


■■■■■1 


!■■■■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


B 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■■■ 


■■■■« 


!■■■■ 



aaaaaaaaaaonaaaDaanaaaaaaaaaaanaanaDDaan 


■ 


■ 


■ 


■ 


■ 


■ 




I 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 






a 








■ 




■ 


I 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 








■ 












■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 








■ 












■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 








■ 












■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 








■ 












■ 


I 


■ 


■ 


■ 


■ 


■ 


i 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 








■ 












■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


a 


a 


3 


□ 


H 


i 


E3 


3 


□ 


E 


E 


E 


2 


□ 


D 


D 




□ 








■ 












□ 


□ 


□ 


G 


□ 


□ 


□ 


i 


□ 




□ 


Q 


□ 


□ 


□ 


m 


□ 


g 


G 


D 


a 


□ 


□ 


E 


B 


□ 


□ 


□ 


G 




□ 








■ 












3 


E 


G 


G 


□ 


□ 


G 


B 


□ 




□ 


D 


□ 


■ 


■ 


m 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


□ 


□ 


□ 


■ 


■ 


■ 




■ 








■ 












■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 








■ 












■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 








■ 












■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


■ 


■ 



aaDBaaaaaaaaaaaaaanaaaanaaaaanaaaanDaana 










































































E 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































CALLERR ■ 



DED 



GCURR 



GFRST 



GTRD 
IHEADC 



IHEBXT 



IHEDIF 



IHEEXT 

IHEFCB 

IHEFCIB 

IHEFROM 

IHEHDR 

IHEIOD 

IHELBE 

IHELIB 

IHEMOPP 

IHENAME 

IHEOPENT 

IHEPCH 



IHERET 

IHERST 

IHESAV 

IHESCV 

IHESDR 

IHESYM 

IHETLR 

IHEZAP 

INODE 

INST 

LIBDEF 

MNODE 

RCON 

READDISK 

READTERM 

RFIB 

RTSSVC 

SETDISK 

SETERRCD 

SETFLCA 

SETSDV 

SKPTK 

SYMDEF 

TALLY 

TGENER 



MMWWMMWWWMMMMMMWWWWWWMWWWWWMWWWWMWMWPJMWW 

ooooooxxxxwMHMMMHw»«»t>'ta>tf^»«*in!i*joft , tfH5sa2S3:<ooo 

NX:Ewr*iNCWr , NS:c2OTr , WWOMOW>W©OW>W>>N*Wt- , Wt- , ONCOT 



Figure J-3. Runtime Module-Macro Cross Reference (Page 3 of 3) 
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MODULE-MODULE CROSS REFERENCE 

CALL/3 60-OS PL/I compiler modules are discussed in detail in Section 
3 of this manual. For each module, other routines called by the module 
are listed under "Routines Called* • This interrelationship of modules 
is summarized in Figure J-4, 

In Figure J- 4, names are given exactly as they appear in program coding. 
That is, names which do not follow the prescribed naming conventions 
(begin with $) are identified • 
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Calling 
Modules 

|a|aIaIa|a|aIaIbIbIb|bIbIbIcIc|$IcIcIc|cIc|c|dId|$ 

|B|C|N|P|R|S|T|E|G|L|0|P|R|A|A|C|E| 1 iNJOlRlSlClDlD 

|a|g|c|r| e| i|kIgIe|p|nIuInIlItIc|rIfItInIvItIlIsIe 

M^..iaei L l E l R |C| X| D|N| 1 |T|R|S|T|H|L|E|0|R| 1 1 UIOlGl |X 
Modules , i . , i _ I _ i w i § K1 1 ^i A i i i iau.i i i i i i-u,! I-, 
Called ' 1 N 1 E | 1 P I X I 1 N 1 1 C I A | 1 1 |G|N| 1 1 | | |P|N| |P 

1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 |T| | | | 1 1 1 1 1 


D|D|Di 
1 I 0| 0| 

OlClG 

slsl 

1 1 


ABAL | | |#HI | | | | | | | | | | | | | | | I | HI | 




ACGEN | | || | | | | || | | 1 | | |j 1 | l*| I | I | | 




ANCRE | | | III | | | | | | 1 i | | | | | | J | |l| | 




APRC | | | | | 1 1 | j | | | | | | | | | H| | | | | | 




AREXP | | • | | | | I | HH| 1 1 1 HI 1 1 1 1 1 1 


1 HI 


ASIDX | | | | j I \m\ | j || | | | | | | | | | | | | | 




ATKN | 1 1| | || | j | | j || || | | | 1 l*| || | | | | 




BEGIN | j j I | | | | | | | | | | j j || | |#| j | | j | 




BGET | | | j | ! | | | | | | | | | | | | |l| | | II I 




BLPRC | | j HI j | |#| | | | | | j | | | HI | | I | I 




BONSA | j | j j j j | | | j I j 1 | | | j | HHI j 1 1 




BPUT | L| j | | | | | | | | | | | | | | |l| | | | | | 




BRNH || || | 1 j || I | | j II || I 1 1| |j H| j || 1 j || 




CALL 1 | | || j | | I 1 | j 1 | | | 1 1 HI 1 | 1 | I 




CATEG | 1 j 1 1 | j 1 j 1 | | | 1 I 1 | | HHI | 1 1 1 




$CCONT| I | j | j | | j | j j | | | | j j | 1 1| | | | | 




CERR j HH| | | | | HI 1 1 1 1 HI 1 1 1 1 1 1 1 1 1 


1 1 1 






CNT || || || | | || || | | H| | | | | | | | 


1 1 1 


CON | | | | | | | j | | | j | j | | j | H || | | | | 




CRVT 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 HI 1 1 1 1 1 


1 1 1 


CSTOP | | | | | | | | | | | | | | | | | | HI 1 1 1 1 1 




DCLGN | | | | I | | | | | | j | 1 | I | | H| | | | | | 








$DEXP || | j j | | | | | | | | | | | | | | | | | | | | 


1 HI 


DIOS 1 | | | | | | j HI | HI I 1 1 1 1 1 I 1 1 1 1 1 




DOCS | j | | j | | | | | | | j | | | | | | j | | | | | 




DOG j | | j | | | j | | | j | | | | HI 1 | 1 HI 




DRET | | 1 | | 1 | | | | | | j | | | | 1 H| | I | | 1 




EDGN 1 I | | | | | | 1 I 1 HI 1 HI 




ENDES | j || | || | | | || | || | | | H| | | | j \~\ 




ENDON j | | | | | | | | j | | | | | | | | • 1 I 1 1 II 




EXPND | H| | | | j | | | | | | | | | | | | | | | | H| | 




EYPND j • | I | | | 1 1 | | I | | | I | 1 | | 1 | HI I 




FIND 1 1 1 HI 1 HI HI 1 HI 1 1 HI 1 HI 1 1 1 1 1 1 




FLG j j | j j | j j | | | | | j | | | | | j j | | | | | 




FMT j | | | | | | | | | | | | | | ||| | | f| 




FNB | I 1 | | | |#| | | I 1 1 | 1 1 I 1 1 1 1 1 1 1 1 1 




FORI | j | j | j | | | | | | | | | | | | j | | | || | | 




Fp DL | | | | | | | j HI 1 !•! 1 1 1 1 1 1 1 1 1 1 1 1 1 




FSYM | j j j j | j j | • 1 !•! I 1 1 1 1 I 1 1 !•! 1 1 


| |_| 


fvar j | | | | | | | HI !•!•! HI 1 1 1 1 1 1 1 1 !•! 1 




|a|aIaIa|a|aIaI bI bIbIbIbI Blclci$lclclclclc|c|DlD|$l 

|B|C|N|P|R|S|T|E|G|L|0|P|rIA|a|C|eI I|N|0|R|S|C|D|D| 

|a|g|c|r|e| i|k|gIe|p|nIuInIlIt|c|rIfItInIvItIl|sIe| 

ILI E| R|C| X| D|N| 1 |T|R| S|T|H| L|E|0|R| 1 I |T|OlGl |X| 
1 |N|E| |P|X| j N 1 I C I A j 1 1 JGlNl 1 1 | j 1 P 1 N | |P 
1 1 1 1 1 1 1 1 I 1 1 I 1 1 1 |T| 1 I | 1 1 1 1 1 1 


d|d|dI 
i loioj 

OlClGl 

slsl | 
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Figure J-U. Compilation Module-Module Cross Reference (Page 1 of 6) 
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|a|aIaIa|a|aIa|b|bIb|bIbIbIcIc|$IcIcIcIcIc|c|d|d|$ 
|b|c|n|p|r|s|t|e|gIl|oIpIrIaIa|c|eI i|n|o|rIs|c|d|d 
|a|g|c|r|e| i|k|g|e|p|nIuInIlItIc|rIfItInIvItIl|sIe 

nfl ^ , ILIEI R|C|X|D|N| 1 |T|R|S|T|H|L|E|0|R| 1 1 |T|OlG| IX 
Sfed ' |N|El |P,X| |N| |C|A| 1 ' ,G,Ni ' ' 1 ' |P|N| ,P 


d|d|dI 
I 1 1 1 

OlClGl 

slsl | 


GPUT |~"|"~l""l""l""l 1 1 1 1 1 1 1 1 1 1 !•! 1 1 1 1 1 l_L 




$GTRIA I I |l|*| 1 1 lllllll lllllllj Lll|lllllll|_|lll 


1 III 


$HAINI 1 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 LL 




$HCTP I 1 1 1 1 1 1 1 1 1 1 1 1 1 IJ 1 1 1 1 1 1 1 1 1 




SHDVTP 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M_l_l_ 




$HLNTP 1 1 1 1 1 PI 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 




SHRTLL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l_l 




$HSCAL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




$HTCR 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M l_l_ 




$MCWU 1 1 l 1 1 1 1 1 1 1 1 1 1 1 1 1 LI 1 1 t 1 1 1 1 




SNATTP 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 LL 




$NCALL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




$NCONS 1 1 III 1 1 1 1 1 1 1 HI 1 1 1 1 1 1 Hill 1 Hll 




$NCSDV 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 I 




$NCVT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




$nexp 1 Hill I 1 1 1 1 1 l HHHI 1 1 III 1 1 1 1 Itl 


1 III 






$NMULT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 








$NOPRT 1 I 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 H 




$NPRE 1 1 1 1 j 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




OPEN 1 1 M | 1 1 1 I 1 1 1 1 I 1 1 1 1 HI 1 1 1 1 1 




$OPMZO 1 1 1 1 I 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 




$SCDV 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 HI 








$TCODE 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 HI 1 1 1 1 1 








$triad i i |«| i i i I I I i I l i 1 1 1 1 1 1 1 1 1 1 1 








$VASGC | | | | | | | | | | j | 1 | | | | | | | M | | | 




$VCLR | | | | | | | | | | 1 1 1 1 1 HI 1 1 1 1 1 1 1 1 




$VDSAC | | | | | | | | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




$VGT1VIP | | M 1 1 1 1 t 1 1 1 1 1 1 II 1 1 1 1 M 1 1 




SVINSA | I I | | | | | | | | | | | | | | | | | | | | 




$WBACK| | | | | | | | | | | | | | | | | 




$WCONT| | | | | | | | | | | | | j | | | j | | | | | | j 




$WCTCT 1 1 lit 1 1 Hf 1 1 1 1 1 1 1 HI ID 1 1 1 1 (III 


1 III 


WEXP | | [•(•| HHHI |l| I 1 1 1 III lljlllt I j || |l 


1 HI 


$WSTEP | | | | | | | | | | | | | | | | | | | | | | | | | 




SXERR !@|<1H©HHHHHHHHHHHI 1 1 Hll|l|l|l|l|l| 


illlil 










Ib|c|n|pir|s|tie|gIl|oIpIrIaIa|c|eI 1 |N|0|R|S|C|D|D 
|a|g|c|r|e| i|kIgIeIpInIuInIlItIc|rIfItInIvItIlIsIe 
ili e| r|c| x| d|im| 1 |t|r| s|t|h| l| e|0|r| 1 1 |t|olg| |x 
1 InIeI lP|x| InI IcIaJ 1 1 IgInI 1 1 1 1 IpInI |p 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 |T| 1 1 1 1 1 I 1 | 


1 |0|0| 
OlClGl 

slsl | 
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id|eIe|e|e|e|fIf|f|f|fIfIf|f|g|$|$|$|$I$|$|$|$I$|$|$|$|$| 

|R|D|N|N|X|Y|llL|M|N|OlP|S|V|P|G|H|H|H|H|H|H|H|M|N|N|N|Nl 
|E|G|D|D|P|prN|G|T|B|R|D|Y|A|UlT|A|C|DlL|RlSlTlC|A|ClC|Cl 
|T|N|E|0|N|N|D| 1 1 HlL|M|R|T|R|l|T|V|NlTlClC|W|T|A|0|Sl 
^dules j | i S | N | D | D | | | | | | | | I 1 1 |N|P|T|T|L|A|R|UlTlL|N|D| 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 |A|I| |P|P|L|L| 1 IPILISIVI 


abal i"~i"~i~~M I I 1 1 I I I I Li.l.LLLLl.LLLLl I.IJ 


acgen i i i i i I I I I 1 I I I LLM I 1 I LI 1 LLLLI-.I 


ANCRE j 1 1 | 1 1 1 1 1 1 1 1 I LLLLI 1 1 f I 1 I 1 I I I 1 


aprc i i i i i I 1 i i i I 1 1 1 I I I 1 1 I 1 1 LLLLLL' 


arexp i*j i i i i i i*i I i*i 1 I 1 1 i I 1 1 1 l_l LLLLL' 


asidx m m m ll 1 l#M ll M II M M 1 1 M LL' 


atkn i I I 1 i I I 1 1 I i i I i LI LI Li 1 LLLLLLL' 


begin I i i i i i i i i i 1 I I I > 1 1 I I 1 i 1 I I I LLL' 


BGET 1 1 1 1 1 I I 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


blprc I in I I I I I iti I M IJ 1 I I LLLLLLLLLL' 


bonsa 1 I l i i I i I l I 1 I 1 1 1 1 I 1 1 1 1 1 1 LLLLL' 


bput 1 1 I I I 1 l 1 1 l I i I 1 I 1 I I I I l LLLLLLL' 


brnh i I i I i i 1 1 I l I 1 l 1 1 l 1 I I 1 I l 1 LLLLLi 


CALL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 j 1 1 1 1 1 1 


CATEG 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 LL' LI 


$CCONT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 l 1 LLL' 


CERR 1 III III 1 | 1 1 1 1 1 III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


CIF 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 


CNT 1 1 1 | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


CON 1 II 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


CRVT I 1 1 1 j 1 1 1 1 1 1 I | 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 


CSTOP Mill 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


DCLGN j I | | j | | | | j I I j | 1 | | I I | | 1 1 1 1 1 1 1 1 


DDS mm 1 I ll M II M 1 1 1 1 1 1 1 1 LLLLL' 


$DEXP || j | jl| I III | II I || 1 | || 1 II M 1 1 M 1 


DIOS || II | II 1 1 II II 1 II II I 1 1 1 1 1 II Ll 1 


DOCS j || | || | || | | j j | j |j | | j j II II | l| I 


dog II M 1 II M 1 II II M II 1 M II M 1 1 1 


DRET | | j || | | | | | j || || | | | j || j | j j j j || 


EDGN || || | ||| HI | | j | j || j j | || || | I | | I | 


ENDES M III II 1 1 1 1 1 1 II 1 1 1 1 II 1 M 1 1 1 1 1 1 


ENDON | |l| II 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 M 1 1 II 1 1 


EXPND || II 1 1 1 1 1 1 II 1 1 1 1 1 1 M 1 1 II II II 1 


EYPND II M I II 1 II M M M 1 1 1 1 M 1 1 1 1 1 1 1 


FIND || II I 1 II 1 II II 1 1 II II II 1 1 1 M 1 II 


FLG II II 1 II 1 III Mil II II II 1 II 1 II 1 II 1 


FMT 1 II 1 I M M 1 II 1 II 1 1 II 1 II II 1 1 M 1 


FNB 1 llll 1 II 1 II II 1 1 M 1 1 1 M 1 1 1 1 1 1 M 


FORI 1 || 1 | 1 1 llll 1 II 1 II I 1 1 II 1 II II II 1 


FPDL I || || | || | || 1 1 II 1 II 1 1 II 1 M M 1 1 


FSYM || || | || | | j | || 1 ^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


FVAR || || j || llll I | j | j 1 | | 1 | | I j | I 1 1 I 1 


|d|eIe|e|e|e|fIf|f|f|fIfIf|f|g|$|$|$|$I$I$I$I$I$I$I$I$I$I 
|r|d|n|im|x|y|i |l|m|n|0|p|s|v|p|g|h|h|h|h|h|h|h|m|n|n|n|n| 

|E|G|D|D|P|PlN|G|T|B|R|D|Y|A|UlT|A|C|DlL|R|SlTlC|A|C|C|Cl 

|T|N|E|0|N|N|D| 1 1 |l|L|M|R|T|R|l|T|V|NlT|C|C|W|T|A|OlS| 
I | |S|N|D|D| II 1 II II 1 1 1 |N|P|T|T|L|A|R|U|Tl L|N|D| 
| || || 1 II II 1 II 1 1 1 A | 1 | |P|P|L|L| 1 IPI LlSlVl 
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|d|eIe|e|e|e|f|f|f|f|f|fIf|f|g|$|$|$|$|$|$|$|$|$|$|$|$|$| 

|R|D|N|N|X|Y|llLlM|N|0|P|S|VlP|G|H|H|H|H|H|H|H|M|N|N|N|Nl 

|E|G|D|D|P|PlN|G|T|B|R|D|Y|AlUlT|A|C|DlL|RlSlT|C|A|C|C|Cl 

AM . . |T|N|E|0|N|N|D| I 1 I 1 |L|M|R|T|R| 1 |T|V|NlT|C|C|W|T|A|OlS| 

rnJi 1 1 |S|N|D|D| 1 1 1 1 1 I 1 1 1 1 |N| P |T| T| L| A|R| U iTl L|N |D| 

I 1 1 1 1 1 1 1 1 1 1 1 1 1 IJAIMJP IflULLLlPlLlSlVl 


GPUT I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M§M_Mfj_ 1 1 • 1 | M_l 


$gtria lililililil 1 lilil lilil 1 1 1 1 1 1 1 l_l_l_l •l_l_l_l*l 


$HAINI | 1 1 I 1 1 1 1 1 1 1 1 1 1 1 ! 1 I 1 I I 1 1 1 «^ i 1 I J I 


$HCTP | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 j 1 1 1 1 j i_M§| II 1 1 1 J 


$HDVTP I 1 1 1 I 1 1 1 1 1 1 1 1 1 1 j 1 1 1 1 1 J 1 • J 1 1 | J 


$HLNTP 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ] 1 1 1 1 1 J 1 1 • 1 1 1 J J 


$HRTLL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 LM®LLM 1 


$HSCAL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III 1 IJJ 


$HTCR 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M l_l£l_l I.J.J 


$MCWU 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 • 1 1 I j 1 1 1 1 


$NATTP 1 1 1 1 1 1 1 1 1 M 1 1 1 1 1 1 1 1 1 1 1 M 1 1 IJJ 


$NCALL 1 1 1 1 I _l_l_l_i_l_l 1 1 1 1 1 1 | 1 1 1 1 I 1 1 l_l_J 


$NCONS 1 1 1 1 1 1 1 III I itl 1 1 1 1 1 1 I 1 1 LLL 1 LU 


$NCSDV M_J M 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 J 1 1 1 l_ 1 


$NCVT 1 1 1 1 1 II IJ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l_lf.ll 


$NEXP l#l 1 1 1 l_M*M !•! 1 1 1 1 1 1 1 1 1 1 1 [ 1 I'll 




$NMU1_tM 1 1 1 1 1 M_J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 III 




$NOPRT I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l_l_l 




OPEN 1 1 1 1 j 1 1 1 I 1 1 1 1 1 I 1 1 1 1 1 1 1 M 1 M_J_I 




$SCDV Mill I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 I t 1 1 




$TCODE | III 1 | | 1 I III I l«l 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 I 1 




$TRIAD I 1 1 1 | | I | 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 l#l !•! 




$VASGC I | | I | 1 M M LI II 1 1 1 1 1 1 1 1 1 1 1 1 1 l_| 




SVDSAC I | I 1 | 1 | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$VGTMP 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$VINSA 1 II 1 M 1 1 1 1 1 1 1 1 M 1 1 1 1 II 1 1 M 1 1 1 


$WBACK|I||| | | | | I | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$WCONT| ( | | | | | | 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 1 1 1 
$WCTCT | lllllllllll | | j | ||| | | I | | | | I | | j j III III 
WEXP | III I |l| | |l| | |l| I |l| |l| | j | 1 | j j 1 1| jllll 
$WSTEP I | | | | 1 | | | | | I | | | j | |l| jl| |l| | | j | | 1 


$XERR Hill 1 | 1 I lllllllll I 1 1 1 | 1 1 1 1 1 1 1 1 HI 1 1 






| D | E 1 T| E | E | E I F |7 17 | F | F 1 F |7| F | G | $ | $ | $ | $ | $ | $ | $ | $ | $ | $ | $ | $ | $ | 
|R|D|N|N|X|Y|I IL|M|N|0|P|S|V|P|G|H|H|H|H|H|H|H|M|N|N|N|N| 
|E|G|D|D|P|P|N|G|T|B|R|D|Y|A|U|T|A|C|DlL|R|SlT|C|A|ClC|Cl 
|T|N|E|0|N|N|D| | 1 |l|L|M|R|T|R|l|T|V|NlTlC|C|W|T|A|0|S| 
1 1 |S|N|D|D| 1 I 1 1 1 1 1 1 1 1 |N|P|T|T|L|A|R|U|TlL|N|D| 
| 1 | 1 | | I I I | 1 1 | 1 | |A| I | | P| P|L| L| I |P| LISIVI 
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|$|$|$|$|$l$l$|ol$|$lsl$l$l$l$l$ls|$|$|$|$|$l$|w|$|$| 1 1 
|n|n|n|nIn|n|nI pjolsj v|t|t|t| vl vl v|v| v| viwjwiwl e|w|x| I I 

|C|E| L|M|0|0|P|E| P 1 C 1 C 1 C | 1 R 1 A | A I C I D | G | 1 j B |C| C | X 1 S 1 E j 1 1 
M ., IVIXlSlUl Pi P|R|N|M|Dl lOlPl 1 |S|S|L|S|T|N|A|0|T| P|T|R| 1 1 
p5£h 1 TIP 1 1 |L|C|R|El |Z|V| |D|R|A|G|G|R|A|M|S|C|N|Cl |E|R| 1 1 

1 | | B |T| V I T I 1 | 0| 1 |E| |D|A|CI | C| P| A | K|T| T|_| P 1 I 1 1 


ABAL | 1 | 1 | 1 II 1 1 1 1 1 II 1 1 1 1 1 1 l_l 1 1 j 1 I h 


ACGEN 1 1 I | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 LLLL'-J' 


ANCRE I | | 1 1 1 1 II 1 M 1 1 1 1 1 1 1 1 1 l_i 1 1 1 J h 


APRC | 1 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l_l LLLj' 


AREXP 1 1 1 I | 1 1 l#l 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 LLLL'' 


ASIDX I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M_J 1' 


ATKN 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III 1 LLLL'' 


BEGIN 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


BGET 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 LLLL' 


BLPRC 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M_Ml 


BONSA 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 _, I I 1 I I 1 


BPUT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 j I 1 1 1 


BRNH 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l_l LLIJ 


CALL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 Mil* 


CATEG 1 1 1 1 1 1 1 II 1 1 1 1 II 1 1 1 II 1 M LLIJ 1 H 


$CC0NTl ll 1 1 1 1 1 1 M 1 M 1 1 1 II II 1 1 j 1 J j j • * 




cif I I I l I I i I 1 II I II M ll 1 1 Ll I 1 LLLjl* 




con i I l I l I I ll M l I I 1 I 1 ll I l II 1 LLLLI ( 




cstop I 1 I ll l I I 1 1 ll ll ll ll l 1 1 II 1 1 LLL' ( 




DDS | I I 1 | I 1 1 II 1 1 1 1 II 1 1 1 1 II II II M 1 


$dexp i i j I i I ii ll i ll I ll 1 I 1 1 1 1 1 1 LLLLI 1 


DIOS | I 1 I 1 I 1 I 1 I II II 1 1 II 1 1 II M 1 II 1 1 


docs | i I i | I I III 1 I 1 II II 1 1 1 1 II 1 llllli 


DOG | I | | | | | | | j I j | | 1 1 1 I 1 I 1 1 1 II 1 1 1 1 


dret i i l i i i i i i I I i i I I I I 1 I I 1 1 l 1 1 LLLl 


EDGN | j | | | j | | 1 j | j j j | | j | 1 1 II II 1 1 1 1 1 




ENDON | | | | | || | j | | j | || | | 1 1 II 1 1 1 I 1 LLI 




EYPND | | | I j | | j | | 1 | I 1 II | M 1 l Ll I 1 LLLl 




FLG 1 1 1 1 1 1 1 1 II 1 M 1 l 1 1 II M II I 1 LLLl 




fnb i i i i i i i i ii i i ii i i ii i i i ulLLLLU 




fpdl i i i i i i I 1 I I I ll l 1 I I 1 M II 1 LLLLLI 




fvar i \m\ i | i | in i ii i j j I I j ll 1 LLLLLLLI 


|n|n|n|nIn|n|n| p|o|s|v|t|t|t|v|v|v|v|v|v|w|w|w| e|w|x| 1 1 

IVIXlSlUl P| PJRllMlMlDl |0|P|l|S|S|L|S|T|N|A|0|T|P|T|R| 1 1 

1 1 1 B | T| V | T | 1 1 1 1 |E| |D|A|Cl I C| P| A| K|T|T| |P| 1 1 1 
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!$!$|$|$l$l$l$|o|$t$!s|$|$|$| $!$!$[$ [$[$l$l$l$|w|$|$l | | 
|n|n|n|nIn|n|n| p|o|s| vIt|t| t[v| vjvlvtvj v|w|w|w| e|w|x| 1 1 

|C|E|L|MlO|0|P|E|P|C|C|ClOlR|A|A|C|D[G|l|B|cic|X|S|E| 1 | 
MH | IVlXl S|U| P| P|R|N|M|D| |0|P| US|S|L|S|T|N|A|0|T| P|T|R| 1 1 
CaHed |T|Pti|L|C|R|Ei |Z|V| |D|R|A|G|G|R|A|M|S|C|N|C| |E|R| 1 1 

1 1 |B|T|V[T| 1 |0| 1 |E| |D|A|CI_|C|P|A|K|T|T| |P| | I | 


GPUT | I | I 1 1 1 1 I M 1 1 1 1 IJ 1 1 Itl !•! 1 1 Itl 1 1 


$GTRIA | | | 1 1 1 1 l#| 1 | 1 1 IJ M 1 1 1 M 1 1 1 1 I 1 1 


$HAINI | | 1 1 1 I 1 1 1 1 I IJ 1 L LLLLLLLLLL' 1 1 1 


$HCTP 1 I 1 1 1 1 1 1 I 1 1 1 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$HDVTP| | | | 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 M LI 1 1 1 1 


$HLNTP | 1 1 | | 1 1 1 1 | 1 | 1 II 1 1 M 1 1 1 I 1 1 1 1 1 1 


$hrtll| 1 1 1 1 1 II 1 1 II l_J 1 1 II M 1 II 1 II 1 l 1 


$HSCAL | I 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$HTCR | | 1 I 1 1 I 1 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$MCWU 1 1| 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1*1 1 1 1 1 1 1 


$NATTP 1 1 1 j | 1*1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$NCALL| 1 1 | I •!•!•! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$NCONSl 1*1 | !•!•! 1 1 1 1 |#|*l#l 1 1 1 1 |*| 1 1 1 1 1 1 1 1 


$NCSDVl 1*1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$ncvt | 1 1 1 1 1 1 M 1 1 lt| LI 1 1 1 1 1 II 1 1 1 1 1 I 1 




$nlsib l | 1 | 1 |#| 1 | | | 1*1*1 1 1 1 1 1 1*1 I 1 1 1 1 l 1 1 




$nopcv| |i| | | !•!•! I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 




$NPRE | |«| | | |9| | | | | M 1 | M M 1 1 1 1 1 M 1 II 


OPEN 1 1 | 1 1 1 | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$opmzo| | | j M 1 II 1 1 |t| 1 1 1 1 II 1 1 1 M 1 II 1 


$scdv | | | | | | | | | | | |#[ 1 ! 1 1 1 1 1 1 1 I 1 Mill 


svc II II M M 1 M l+M II 1 M l*M*M*M II 1 


$TCODE[ | | | | | |*| I j I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


$TOPR | | | | | | | I | l| | | | | | | | | | | I | | 


$TRIAD | |*| j*j*|*| | 1 1 1 1 1 1 1 1 1 1 1 1 1 Mill 


$vasga| j i j j || 1 1 1 M 1 I II I lil |t| I || II | M 


Svasgci M If l| ill M 1 1 II | 1 1 M*l | II Mill 


$VCLR [ | [j || | || | M t j |( f f | | | [ | | [ | || | 


$vdsac| | I || I | I M 1 1 1 1 1 |#l 1 | |t| | M II II 1 


$VGTMP| | | | | | || | | f j |t| || |*| | | || |( | || [ | | 


$VtNSA | | | | | | | | l| | | | I | | I | | | 


$WBACKf [*| | | |#| | | j | |*| | || | |*j*|*| III [ | III 


$WCONT| | | | | | | j | | j | | j j [j || | | | || | | | | | 


$WCTCT| |*| | |*|*|*| I | [ |*| | || | | | | || || || || | 

wexp |*|*| | |*|*| j j |*| 1*1 t*| t j ||*M II M 1 1 | 1 
$wstep ||*l 1 1 |t| 1 II 1 |t| | II 1 [ 1 1 1 |t| | 1 l~M~~l 


$XERR |*l®| | |*|*|*|*| || |*| | || || || || | | || || | 






l$l$|$|$|$|$|$|o|$|$|s|$j$|$|$|$|$|$|$|^|^|$"|"$|wj$|$| — j ""| 

1 N 1 N | N | N 1 N | N I N 1 P 1 1 S 1 V | T | T | T | V | V 1 V | V | V | V | W |W| W| E | W| X 1 | | 
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Figure J-4. Coropilation Module-Module Cross Reference (Page 6 of 6) 
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